Избавиться от ковычек

Тема в разделе "Lotus - Программирование", создана пользователем romanko, 9 сен 2011.

  1. romanko

    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 каждая строка в ковычках("строка"). Как их отсекать?
     
  2. oshmianski

    oshmianski Гость

    заменить
    Write #outputFile, Tmp1
    на
    Print #outputFile, Tmp1
     
  3. romanko

    romanko Гость

    Да спасибо помогло!
     
Загрузка...

Поделиться этой страницей