Загрузка данных

  • Автор темы romanko
  • Дата начала
R

romanko

#1
Подскажите как очистить содержимое файла и загрузить из переменной в него данные. Или как заменить содержимое файла на содержимое переменной?
 

Omh

Lotus team
04.07.2007
2 210
1
#2
romanko
Я уже узнаю тебя по постановке вопроса ;)
 

nayke

Well-known member
04.08.2010
310
0
#4
Вот делаю вот так

Open filepath For Output Access Write _
As fileNum

Открываю фал на запись. а как в него внести данные?Хотя бы в какую сторону рыть?
Рыть? открой Domino Designer Help и в строке поиска забей Open fileName$
получишь пример использования

Код:
Dim fileNum As Integer, empNumber As Integer, I As Integer
Dim fileName As String, empName As String
Dim empLocation As Variant
Dim empSalary As Currency
fileNum% = FreeFile()
fileName$ = "data.txt"
' Write out some employee data.
Open fileName$ For Output As fileNum%
Write #fileNum%, "Joe Smith", 123, "1 Rogers Street", _
25000.99
Write #fileNum%, "Jane Doe", 456, "Two Cambridge Center", _
98525.66
Write #fileNum%, "Jack Jones", 789, "Fourth Floor", 0
Close fileNum%
' Read it all back and print it.
Open fileName$ For Input As fileNum%
For I% = 1 To 3
Input #fileNum%, empName$, empNumber%, empLocation, _
empSalary@
Print empName$, empNumber%, empLocation, empSalary@
Next I%
Close fileNum%
' Output:
' LotusScript prints out the contents of the file 
' C:\data.txt in groups of four values each. Each group
' consists of a String, an Integer, a Variant, and
' a Currency value, in that order.
 
R

romanko

#5
делаю вот так как в примере но в файл ничего не заносится
Тмр1 это переменная ранее заполненая данными
Open filepath For Output As fileNum
Write #fileNum, Tmp1
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 567
263
#6
ОФФ: а чё, в форуме, выделить фразу и нажать "цитата" религия не позволяет?
или поправить "испорченые" теги (руками)
 
R

romanko

#7
А как загонять в файл построчно. я считываю с файла учитывая Chr(13) как теперь вгоняя в другой файл учитывать это?
 
R

romanko

#8
И еще когда вот так
Open fileName$ For Output As fileNum
Write #fileNum, Tmp1
записуешь в файл он создает его во временной папке как указать путь для создания файла??
 

nayke

Well-known member
04.08.2010
310
0
#9
И еще когда вот так
Open fileName$ For Output As fileNum
Write #fileNum, Tmp1
записуешь в файл он создает его во временной папке как указать путь для создания файла??
filename - путь к файлу. Если задашь 1.txt то файл будет создан/перезаписан в рабочей директории если c:\1.txt то по указанному пути.