|
|
Postada em 06/04/2005 03:20 hs
Criei uma rotima para importar arquivos de texto para uma listbox. A questão é que o tal arquivo está seguinte formato: [{00000000-0000-0000-0000-000000000000}]
Category=BHO
Confirmed=X
Description=CommonName
Filename=CnbarIE.dll<br>Cnbabe.dll
Link=http://www.doxdesk.com/parasite/CommonName.html
Source=TonyKlein [{00000000-0007-5041-4354-0020E48020AF}]
Category=BHO
Confirmed=L
Description=12Ghosts Popup Killer
Filename=12Popup.dll
Link=http://12ghosts.com/ghosts/popup.htm
Source=TonyKlein Gostaria de importar apenas as linhas que estão destacadas em vermelho. Assim meu aplicativo importaria apenas toda linha que começa com Filename= |
|
|
|
|
|
|
|
Postada em 06/04/2005 10:11 hs
Private Sub Command1_Click()
Screen.MousePointer = vbHourglass
Dim ABC As String
Open "U:Meus DocumentosTabelasMenusFin.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, ABC
If Left(ABC, 9) = "Filename=" Then
'comandos de importação
End If
Loop
Close #1
Screen.MousePointer = vbNormal
MsgBox "Ok"
End Sub |
|
|
|
|
|
Postada em 07/04/2005 05:30 hs
VALEU KARA !! FUNCIONOU = TRUE |
|
|
|
|
|
Postada em 07/04/2005 06:38 hs
Agora a pergunta é um poco mais complicada: Nas linhas do ListBox foram gerados os seguintes textos: CnbarIE.dll<br>Cnbabe.dll
12Popup.dll A pergunta é: Como fazer para que quando em uma linha tiver o caractere <br>, tudo que vinher depois fosse colocado em outra linha exemplo: CnbarIE.dll Cnbabe.dll
12Popup.dll E assim por diante. Observem a função: Private Sub cm1_Click()
Open App.Path & "CLSIDs.tnfo" For Input As #1
Do While Not EOF(1)
Line Input #1, ABC
If Left(ABC, 9) = "Filename=" Then
X = Mid(ABC, InStr(ABC, "=") + 1, 260)
List1.AddItem X
End If
Loop
Close #1
End Sub |
|
|
|
|
|
Postada em 08/04/2005 06:12 hs
E aí, alguém tem alguma dica ???? |
|
|
|
|
|
Postada em 09/04/2005 07:22 hs
E aí, alguém tem alguma dica ???? |
|
|
|
