Использую прямой доступ.
Как определить количество записей?
Пишу
CODE
record.n = Text1.Text
record.f = Text2.Text
record.name = Text3.Text
record.ot = Text4.Text
record.razr = Text5.Text
record.ceh = Text6.Text
Numberfile = FreeFile
Open "s_rab.txt" For Random As #Numberfile Len = 128
Put #Numberfile, LOF(Numberfile) / 128 + 1, record
но он не делает длину 128, он делает как есть , поэтому записи не идут подряд, а накладываются, то есть в файле
оказывается только одна запись, как решить эту проблему?
Срочно! VBasic работа с файлами
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 6
• Страница 1 из 1
- sinys
- Начинающий
- Сообщения: 1
- Зарегистрирован: 03.12.2005 (Сб) 20:00
Срочно! VBasic работа с файлами
sinys » 03.12.2005 (Сб) 20:02
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 03.12.2005 (Сб) 21:04
Открываешь файл как Append и ставишь каждую строку через Print.
- Код: Выделить всё
Option Explicit
Private Sub Form_Load()
Open "C:\File.txt" For Append As #1
Print #1, "первая строка"
Print #1, "вторая строка"
'...
Close #1
End Sub
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- SergT
- Бывалый
-
- Сообщения: 237
- Зарегистрирован: 22.06.2005 (Ср) 21:50
- Откуда: Москва
SergT » 07.12.2005 (Ср) 10:10
alibek писал(а):... записи должны иметь фиксированный размер.
Если не сложно - чуть подробнее
Л. Толстой, «зачем обдумывать обдуманное, бери готовое и иди дальше, в этом сила человечества»
"Всё в наших руках, поэтому их нельзя опускать" (Коко Шанель)
"Всё в наших руках, поэтому их нельзя опускать" (Коко Шанель)
- alibek
- Большой Человек
- Сообщения: 14205
- Зарегистрирован: 19.04.2002 (Пт) 11:40
- Откуда: Russia
alibek » 07.12.2005 (Ср) 10:17
Не
а
И соответственно, Dim rec As UserType, и в открытии файла Open ... Len = Len(rec)
- Код: Выделить всё
Type UserType
fld1 As Long
fld2 As String
fld3 As Single
fld4 As Variant
End Type
а
- Код: Выделить всё
Type UserType
fld1 As Long
fld2 As String*40
fld3 As Single
fld4 As String*20
End Type
И соответственно, Dim rec As UserType, и в открытии файла Open ... Len = Len(rec)
Lasciate ogni speranza, voi ch'entrate.
Сообщений: 6
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot и гости: 196