Hola como estan
Pues vengo con el codigo que Avellaneda me ayudo a estructurarlo para indicarles o solicitarles lo siguiente:
Resulta que en base a este codigo, el recorrido de lineas es desde un archivo .txt, la pregunta es como hacer el mismo recorrido pero desde una variable, ejemplo que todo el texto que viene en el TXT se cargue en un "dim variable as String" y que la funcion cargue la informacion desde la variable.
Gracias!
Código:
Private Sub funcion()
Dim ip As IntPtr = Runtime.InteropServices.Marshal.AllocHGlobal(100000)
Dim sb As New System.Text.StringBuilder(100000)
Dim bt As Integer = GetPrivateProfileSection(LBLtitle.Text, ip, 100000, "C:\test.txt")
Try
For i As Integer = 0 To bt - 1
sb.Append(Convert.ToChar(Runtime.InteropServices.Marshal.ReadByte(ip, i)))
Next
sb.Remove(sb.Length - 1, 1)
ListView1.Items.Clear()
Dim lvi As ListViewItem
For Each line As String In sb.ToString().Split(Convert.ToChar(0))
Dim iPos As Integer = InStr(line, "*") - 1
lvi = ListView1.Items.Add(Microsoft.VisualBasic.Right(line, Len(line) - iPos))
lvi.SubItems.Add(Microsoft.VisualBasic.Left(line, iPos))
Next
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
Finally
Runtime.InteropServices.Marshal.FreeHGlobal(ip)
End Try
End Sub