R
romanko
Подскажите как избавиться от ковычек. получается есть такой код
Dim res As Integer
Dim Tmp1 As String
outputFile = Freefile()
fileName$ = "C:\111.xml"
Open fileName$ For Output As outputFile Charset = "UTF-8"
fileNum = Freefile()
Open filepath For Input As fileNum
Do While Not Eof(fileNum)
Line Input #fileNum, MyTmpString
Tmp1 = MyTmpString
res = DosToWin(MyTmpString,Tmp1)
Write #outputFile, Tmp1
Loop
Close outputFile
Close fileNum
Call doc.Save( True, True )
Все бы хорошо но в файле 111.xml каждая строка в ковычках("строка"). Как их отсекать?
Dim res As Integer
Dim Tmp1 As String
outputFile = Freefile()
fileName$ = "C:\111.xml"
Open fileName$ For Output As outputFile Charset = "UTF-8"
fileNum = Freefile()
Open filepath For Input As fileNum
Do While Not Eof(fileNum)
Line Input #fileNum, MyTmpString
Tmp1 = MyTmpString
res = DosToWin(MyTmpString,Tmp1)
Write #outputFile, Tmp1
Loop
Close outputFile
Close fileNum
Call doc.Save( True, True )
Все бы хорошо но в файле 111.xml каждая строка в ковычках("строка"). Как их отсекать?