Вопрос № 17875: Здравствуйте! Как на VB создать файл типа записи, где записями будут Ф. И. О ?...
Вопрос № 17875
Здравствуйте! Как на VB создать файл типа записи, где записями будут Ф. И. О ?
Отправлен: 05.03.2005, 19:10
Вопрос задал: Сергей Николаевич (статус: Посетитель)
Всего ответов отправлено: 3
Отвечает: Licvidator
Здравствуйте, Сергей Николаевич!
Простейший пример:
dim Path as String, sName as string, sFamilia as string, sOtchestvo as string
Path ="C: est.txt"
sName ="иван"
sFamilia ="иванов"
sOtchestvo ="иванович"
Open Path For Output As #1
Print #1, sName & " " & sFamilia & " " & sOtchestvo
Close #1
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 06.03.2005, 01:43 Оценка за ответ: 5
Отвечает: Зубар Тарас Васильевич
Здравствуйте, Сергей Николаевич!
Для вашего случая советую использовать функцию Put!
Put Statement Example
This example uses the Put statement to write data to a file. Five records of the user-defined type Record are written to the file.
Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record, RecordNumber ' Declare variables.
' Open file for random access.
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5 ' Loop 5 times.
MyRecord.ID = RecordNumber ' Define ID.
MyRecord.Name = "My Name" & RecordNumber ' Create a string.
Put #1, RecordNumber, MyRecord ' Write record to file.
Next RecordNumber
Close #1 ' Close file.
Ответ отправил: Зубар Тарас Васильевич (статус: 1-ый класс)
Отправлен: 07.03.2005, 14:05
Отвечает: Miklucho
Здравствуйте, Сергей Николаевич!
Даю точно такой же ответ как и Licvidator только с небольшой поправкой: вместо #1 я пользуюсь функцией FreeFile. Пример:
dim FileNomer as Integer
FileNomer = FreeFile
Open Path For Output As FileNomer
Print FileNomer, sName & " " & sFamilia & " " & sOtchestvo
Close FileNomer
Какой толк от этого, я если честно не знаю...
Ответ отправил: Miklucho (статус: Студент)
Отправлен: 09.03.2005, 05:28
