| |
|
|
| | Имеется запрос, в нем два текстовых поля: [Поле1] и [Поле2], записей много
Мне нужно получить текстовый файл с таким содержимым:
BEGIN:VCARD
VERSION:2.1
N;Поле1
FN;Поле1
TEL;CELL:Поле2
TEL;HOME:
TEL;WORK:
TEL;FAX:
END:VCARD
|
На каждую запись свой такой блок. | |
| |
| |
| |
|
|
| |
Dim rs As DAO.Recordset
Dim fso As Object
Dim TextStream As Object
Set rs = CurrentDb.OpenRecordset("Запрос1")
rs.MoveLast: rs.MoveFirst
Set fso = CreateObject("Scripting.FileSystemObject")
Set TextStream = fso.CreateTextFile("C:\Test.txt")
For i = 1 To rs.RecordCount
TextStream.WriteLine "BEGIN:VCARD"
TextStream.WriteLine "VERSION:2.1"
TextStream.WriteLine "N;" & rs.Fields("Поле1")
TextStream.WriteLine "FN;" & rs.Fields("Поле1")
TextStream.WriteLine "TEL;CELL:" & rs.Fields("Поле2")
TextStream.WriteLine "TEL;HOME:"
TextStream.WriteLine "TEL;WORK:"
TextStream.WriteLine "TEL;FAX:"
TextStream.WriteLine "End: VCARD"
TextStream.WriteBlankLines 2
If i < rs.RecordCount Then rs.MoveNext
Next i
TextStream.Close
Set TextStream = Nothing
Set fso = Nothing
Set rs = Nothing
|
| |
| |
| |
| |
|
|
| | Yes  Все работает! Большое Спасибо!
Только переменную забыли объявить:
| |
| |
| |
