|
|
Postada em 29/07/2006 13:48 hs
F = FreeFile
Open txtarquivo.Text For Input As F 'abre o arquivo texto Dim LINHA As String
Do While Not EOF(F)
Line Input #F, LINHA 'lê uma linha do arquivo texto
'extrai a informação do arquivo texto usando a função MID Dim MVENDEDOR As String
Dim MLOJA As String
Dim MVEND As String
MVENDEDOR = Mid(LINHA, 2, 8)
MLOJA = Mid(LINHA, 11, 3)
MVEND = Mid(LINHA, 2, 8) **********ARMAZENA LOOP
END SUB
ESTE E LINHA DE CODIGO, AGORA O SEGUINTE
Gostaria de pegar apenas os nomes tirando os espaços em branco Alguem pode me ajudar Usei a dica do forum, mas nao adiantou, talvez eu tenha colocado a Sintaxe errada, ou seja
nao sei pq deu errado
Alguem pode me ajudar
|
|
|
|
|
|
|
|
Postada em 29/07/2006 14:44 hs
Tente assim F = FreeFile
Open txtarquivo.Text For Input As F 'abre o arquivo texto Dim LINHA As String Dim MVENDEDOR As String
Dim MLOJA As String
Dim MVEND As String
Do While Not EOF(F)
Line Input #F, LINHA 'lê uma linha do arquivo texto
'extrai a informação do arquivo texto usando a função MID MVENDEDOR = Mid(LINHA, 2, 8) MLOJA = Mid(LINHA, 11, 3) MVEND = Mid(LINHA, 2, 8) MVENDEDOR = Trim(MVENDEDOR)
MLOJA = Trim(MLOJA)
MVEND = Trim(MVEND) **********ARMAZENA LOOP
END SUB vlu// |
|
|
|
|
|
Postada em 31/07/2006 11:55 hs
MVENDEDOR = Trim(Mid(LINHA, 2, 8))
MLOJA = Trim(Mid(LINHA, 11, 3))
MVEND = Trim(Mid(LINHA, 2, 8))
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
