Вытащить данные с файла

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

  1. romanko

    romanko Гость

    Подскажите как с вложенного файла забрать текст и засунуть его в стринговую переменную?
     
  2. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    NotesEmbeddedObject.Extract -> NotesStream

    romanko, слушай, может почитай на досуге хелп/ibm форум?
    Не в обиду сказано, но генерируешь вопросы с такой скоростью, как будто лотус видишь второй раз и тебя сразу кинули на разработку сложнейшей базы.
    Причём сделать её надо в течении 2-х дней :lovecodeby:
     
  3. DNT

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    ...
    Call notesEmbeddedObject.ExtractFile( path$ )
    fileNum = Freefile()
    Open path$ For Input As fileNum
    Line Input #fileNum, MyString
    Close fileNum
    Kill path$
    ...

    :lovecodeby:
     
  4. romanko

    romanko Гость

    Так оно и есть я простой администратор а не кодер, а вот задание нужно выполнить я вот и исчу варианты?
     
  5. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Результат - только первая строка из файла (trollface)
     
  6. DNT

    DNT Постоялец форума
    Lotus team

    Регистрация:
    12 окт 2005
    Сообщения:
    592
    Симпатии:
    7
    да, кстати правильно подметил )
    если там больше строк тады циклы-шмыклы использовать
     
  7. romanko

    romanko Гость

    Подскажите как из этого получить чтобы все строчки из файла заносились
    Open filepath For Input As fileNum

    Do While Not Eof(fileNum)
    Line Input #fileNum, MyString
    Loop
    Set item = doc.ReplaceItemValue( "win", MyString )
    Close fileNum
     
  8. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Код (LotusScript):
    Dim MyTmpString As String

    Do While Not Eof(fileNum)
    Line Input #fileNum, MyTmpString
    MyString = MyString + MyTmpString
    Loop
    Close fileNum

    Call doc.ReplaceItemValue( "win", MyString )
    Меня, кстати, жутко бесит префикс "My" у переменных. А почему не дяди Феди?
     
  9. VladSh

    VladSh начинающий
    Lotus team

    Регистрация:
    11 дек 2009
    Сообщения:
    1.251
    Симпатии:
    2
    Использовать DXL.
     
Загрузка...

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