caros amigos...

 

gerei um arquivo delimitado por "#", nao estou conseguindo fazer a leitura do arquivo e jogar os campos em arrays, ja tentei usar o split mas nao consegui.

 

se alguem tiver uma dica ai, ficarei muito grato...

 

abrir o arquivo

jogar em array

 

grato...

#Escola Municipal Tia Quita#73795-000#Jardim Moradia##Teresina de Goiás#GO#

 

Escola
Cep

Bairro

Cidade

UF

 

algo que abrisse o arquivo REMESSA.TXT, e lesse linha por linha, fosse jogando os campos entre # #, nas variaveis....

 

 

vc disse q usou o split...pq não deu certo ??

isso, me disseram q usando o SPLIT eu conseguiria, mas nao consegui montar o codigo pra ler o arquivo intercalado por # e jogar cada campo da linha em variavel

Dim Campo(5) As String, Dados As String, x As Integer

Private Sub Form_Load()

'===================================================================
'PARA TESTAR COM SEU ARQUIVO REMESSA.TXT UTILIZE A ROTINA ABAIXO :

    Close #1
    Open "REMESSA.TXT" For Input As #1
    Do While Not EOF(1)
        Input #1, Dados
        '
        CarregaCampos
        '
    Loop
    Close #1

'===================================================================
'PARA FAZER APENAS UM TESTE UTILIZE ESTE EXEMPLO ABAIXO :
'
'    Dados = "#Escola Municipal Tia Quita#73795-000#Jardim Moradia#Teresina de Goiás#GO#"

End Sub

Private Sub CarregaCampos()

x = 1
Do While InStr(Mid(Dados, 2), "#")
    Campo(x) = Mid(Dados, 2, InStr(Mid(Dados, 2), "#") - 1)
    Dados = Mid(Dados, InStr(Mid(Dados, 2), "#") + 1)
    x = x + 1
Loop

Debug.Print Campo(1)   'Escola
Debug.Print Campo(2)   'CEP
Debug.Print Campo(3)   'Bairro
Debug.Print Campo(4)   'Cidade
Debug.Print Campo(5)   'UF

End Sub