LISTVIEW DELIMITADO
Bom dia pessoal,
Tenho um programa que gera uma saida numa textbox com a estrutura abaixo, preciso mudar a textbox para listview, ou seja preciso delimitar o arquivo nos [Ô]:[Ô] (nos dois pontos) para que ele fique com seguinte estrutura (estrutura 2)
SAIDA NA TEXTBOX
Sistema Operacional: Microsoft Windows XP Professional
Fabricante: Microsoft Corporation
Version: 5.1.2600
WindowsDirectory: C:\WINDOWS
Codigo do Pais: 55
Versão Service Pack: Service Pack 3
Hostname: C154DS00041173
Time Zone Atual: -120
Memória FÃsica Livre: 1152140 bytes
Espaço livre no arquivo de paginação: 3221964 bytes
Memoria virtual livre: 2052960 bytes
Numero de Processos Ativos: 57
Organização: T-Systems do Brasil
Registrado para: T-Systems do Brasil
SerialNumber: 76487-640-1137493-23300
Diretório do sistema: C:\WINDOWS\system32
Drive do sistema: C:
Status: OK
SAIDA NA LISTVIEW (O QUE EU PRECISO)
Nome descrição
Sistema Operacional: Microsoft Windows XP Professional
Fabricante: Microsoft Corporation
....
alguma ideia??
Muito obrigado a todos.
Tenho um programa que gera uma saida numa textbox com a estrutura abaixo, preciso mudar a textbox para listview, ou seja preciso delimitar o arquivo nos [Ô]:[Ô] (nos dois pontos) para que ele fique com seguinte estrutura (estrutura 2)
SAIDA NA TEXTBOX
Sistema Operacional: Microsoft Windows XP Professional
Fabricante: Microsoft Corporation
Version: 5.1.2600
WindowsDirectory: C:\WINDOWS
Codigo do Pais: 55
Versão Service Pack: Service Pack 3
Hostname: C154DS00041173
Time Zone Atual: -120
Memória FÃsica Livre: 1152140 bytes
Espaço livre no arquivo de paginação: 3221964 bytes
Memoria virtual livre: 2052960 bytes
Numero de Processos Ativos: 57
Organização: T-Systems do Brasil
Registrado para: T-Systems do Brasil
SerialNumber: 76487-640-1137493-23300
Diretório do sistema: C:\WINDOWS\system32
Drive do sistema: C:
Status: OK
SAIDA NA LISTVIEW (O QUE EU PRECISO)
Nome descrição
Sistema Operacional: Microsoft Windows XP Professional
Fabricante: Microsoft Corporation
....
alguma ideia??
Muito obrigado a todos.
Pessoal alguma ideia?? por favor preciso muito...
Usa essa funcao, acho q pra vc deve funcionar, ai vc pode usar como separador de campo o [Ô]:[Ô]
Function FieldInString(ByVal StringArg As String, ByVal FieldNumber As Integer, Optional Delimiter As String = [Ô],[Ô]) As String
Dim intX As Integer
Dim intY As Integer
Dim intOldY As Integer
StringArg = StringArg & Delimiter
intOldY = 1
While intY < Len(StringArg) And intX < FieldNumber
intY = InStr(intOldY, StringArg, Delimiter)
intX = intX + 1
If intX = FieldNumber Then
FieldInString = IIf(Len(Mid$(StringArg, intOldY, intY - intOldY)) = 0, 0, Mid$(StringArg, intOldY, intY - intOldY))
Exit Function
End If
intOldY = intY + 1
Wend
End Function
Function FieldInString(ByVal StringArg As String, ByVal FieldNumber As Integer, Optional Delimiter As String = [Ô],[Ô]) As String
Dim intX As Integer
Dim intY As Integer
Dim intOldY As Integer
StringArg = StringArg & Delimiter
intOldY = 1
While intY < Len(StringArg) And intX < FieldNumber
intY = InStr(intOldY, StringArg, Delimiter)
intX = intX + 1
If intX = FieldNumber Then
FieldInString = IIf(Len(Mid$(StringArg, intOldY, intY - intOldY)) = 0, 0, Mid$(StringArg, intOldY, intY - intOldY))
Exit Function
End If
intOldY = intY + 1
Wend
End Function
Cassio obrigado pelo rertorno...
eu tinha visto este codigo aqui no site mas nao consegui implementar... voce tem alguma sugestão?
eu tinha visto este codigo aqui no site mas nao consegui implementar... voce tem alguma sugestão?
Pessoal consegui resolver atraves de subitens adcionados manualmente no listview.
Tópico encerrado , respostas não são mais permitidas