jongle
|
CAPANEMA
PA - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 09/12/2009 20:06 hs
pessoal boa noite, eu tenho que modificar todas a "," em um arquivo txt, o arquivo esta assim: 7896454545542,30 7896452545346,14 7896464545535,85 7896457545544,1 e ele tem que ficar assim: 7896454545542;30 7896452545346;14 7896464545535;85 7896457545544;1 desde já agradeço. jongle |
|
|
|
|
|
lramos7
|
BARUERI
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2009 09:14 hs
Pra entender um pouco mais.... Todas as linhas do seu arquivo terá uma virgula? ou as vezes não terá ou terá mais de uma? Estou perguntando pq qdo faço leitura dentro de um arquivo, percebo que a linha que tem vígula o filesystemobject quebra para uma nova linha nesta virgula. Como vc identifica que é uma vírgula dentro do arquivo? No meu caso, para substituir virgulas dentro de um txt, eu primeiro verifico o tamanho da linha, no seu caso vejo que sua linha tem 13 caracteres até a virgula, montaria um novo arquivo com essa linha concatenado de ";" + a proxima linha que virá com 2 caracteres. Vamos nos falando, assim podemos entender melhor a necessidade. Abs |
|
|
|
jongle
|
CAPANEMA
PA - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2009 15:10 hs
nem sempre este linha tem 13 caracteres, as vezes só dois ex: 254878787544,20 124,12 24,12 essis em diante, como eu gostaria que ficase: 254878787544;20 124;12 24;12 obrigado pela atenção |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 13/12/2009 19:25 hs
é simples colega Dim PathName As String, Alterar As String
Dim Linha As String, InLine As String
Dim TempFile As String
Dim F As Integer
Dim F2 As Integer PathName = "c:Teste.txt"
TempFile = App.Path & Format(Time, "hhnnss") & ".TMP" ' arquivo temporário
F = FreeFile
Open PathName For Input As #F
F2 = FreeFile
Open TempFile For Output As #F2
Do While Not EOF(F)
Line Input #F, InLine
Print #F2, Replace(InLine,",",";")
Loop
Close #F
Close #F2
'
' Troca o arquivo antigo pelo novo
'
Kill PathName
Name TempFile As PathName teste ai colega e boa sorte |
|
|
|
|
|
Postada em 15/12/2009 15:37 hs
amigo só o filé, deu certo... obrigado..... até mais... |
|
|
|
|
