wagner
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 14/01/2008 08:17 hs
Pessoal, preciso tirar as aspas duplas, quando gravo a linha dentro do arquivo texto. ex: "0001,3433,044999439" --> não posso ter aspas duplas, nesse arquivo, estou tentando utilizar o replace(str, """", "") mas não funciona. Alguém sabe? Grato |
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 14/01/2008 08:36 hs
posta ai colega o código que você está utilizando para salvar o arquivo texto tá meio estranho a sua situação |
|
|
|
Wagner
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/01/2008 10:23 hs
Segue o Código: Open ender For Output As #1 str1 = "080012,58744,366985227,544AD"
Write #1, str1 Close #1 |
|
|
|
ArtSoft
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/01/2008 11:03 hs
Bom dia amigo...tente tirar assim :
replace(str, chr(34), "")
Alexandre Costa
ArtSoftSystems
Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br
|
|
|
|
Cardoso G
|
PATOS DE MINAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/01/2008 08:31 hs
Private Sub Command1_Click()
Dim a As String
Dim na As Integer
na = FreeFile
Open "c:arq2.txt" For Input As na
Do While Not EOF(na)
Line Input #na, a
Me.List1.AddItem a
Me.List1.AddItem Replace(a, Chr(34), "")
Loop
End Sub
|
|
|
|
Ricardo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/07/2009 17:34 hs
Bem a essa altura você já deve ter resolvido, enfrentei esse mesmo problema hoje e resolvi trocando o Write pelo Print como segue. :-)
Open ender For Output As #1
str1 = "080012,58744,366985227,544AD"
Print #1, str1
Close #1
|
|
|
|
