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

[romanko]

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

 

[Omh]

NotesEmbeddedObject.Extract -> NotesStream

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

 

[DNT]

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

...
Call notesEmbeddedObject.ExtractFile( path$ )
fileNum = Freefile()
Open path$ For Input As fileNum
Line Input #fileNum, MyString
Close fileNum
Kill path$
...

:lovecodeby:

 

[romanko]

NotesEmbeddedObject.Extract -> NotesStream

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

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

 

[Omh]

Open path$ For Input As fileNum
Line Input #fileNum, MyString
Close fileNum

Результат - только первая строка из файла (trollface)

 

[DNT]

Результат - только первая строка из файла (trollface)

да, кстати правильно подметил )
если там больше строк тады циклы-шмыклы использовать

 

[romanko]

NotesEmbeddedObject.Extract -> NotesStream

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

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

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

 

[Omh]

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" у переменных. А почему не дяди Феди?

 

[VladSh]

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

Использовать DXL.