Работа текстовыми файлами

[baranich]

Помогите, у меня есть текстовый документ, содержание которого состоит из четырех строк.
на VB написана прога, которая читает этот файл и записывает новые данные в файл.
Сделано так что, когда какой-то строки нет он выдает сообщение что (неверный формат файла), но если залесть в файл и удалить строку самому и сместить другую строку вверх , то возникает ошибка -
input past end of file
КАК сделать чтобы и в этом случае выдавалось сообщение (неверный формат файла).

[lord0n]

при открытии делай счетчик и проверяй строки на ""

[uhm]

Есть такая функция - EOF. Проверяет, находишься ли ты в конце файла. Еще, на всякий случай, есть LOF и Loc. Читай дальше хелп.

[baranich]

Можно поподробнее на счет счетчика, я с ним парусь не первый час.

[uhm]

Забей на счетчик и читай хелп про EOF

[max-aziat]

ну да про EOF не слыхал что лы???

[baranich]

Конечно EOF это хорошо и спасибо за совет, но мне надо сделать через FSO.

[baranich]

всем спасибо за советы, я уже сделала

[max-aziat]

рады что ты смог

[baranich]

Ребята, такая проблема, в проги предусмотрено, если файл отсутствует, то программа создает новый и открывает форму, четыре TEXTBOX на форме должно быть пустые, но программа выдает ошибку input past end in file. Что делать?

[baranich]

и еще воросик, если в хотя бы один TEXTBOX пуст то выскакивает MsgBox с предупреждением, но если две строки и более пусты, то на каждый пустой TEXTBOX выскакивает свое сообщение, может четыре сообщение подряд выскачить, как ограничить число сообщений до одного?

[lord0n]

Код: Выделить всё


if txt1.text ="" and txt2.text = "" then
msgbox ""
end if


[n-soft]

там есть возможность впихнуть в переменую всю строку если переменая пустая....то

[lord0n]

Ребята, такая проблема, в проги предусмотрено, если файл отсутствует, то программа создает новый и открывает форму, четыре TEXTBOX на форме должно быть пустые, но программа выдает ошибку input past end in file. Что делать?

телепаты в отпуске
код в студию

[baranich]

lord0n:
if txt1.text ="" and txt2.text = "" then
msgbox ""
end if

у меня textbox сделаны через массив:
For i = 0 To 3
If text1(i) = "" Then
knopka1 = MsgBox("",vbOKOnly + vbExclamation, "")
If knopka1 = vbOK Then
form.Show
End If
End If
Next

[sash]

Попробуй так:

Код: Выделить всё


For i=0 to 3
   If len(trim$(text(i).text))=0 then
       knopka1=MSGBOX(msgText,vbOkOnly + vbExclamation, msgTitle)
       exit for
    end if
next
if knopka1=vbOk then form.Show


[baranich]

If Dir$("c:\testfile.txt") = "" Then
knopka = MsgBox("", vbOKOnly + vbExclamation, "")
If knopka = vbOK Then
form.Show
Set ff = File.CreateTextFile("c:\testfile.txt")
Set rr = File.GetFile("c:\testfile.txt")
Set a1 = rr.OpenAsTextStream(ForReading)
qq = FreeFile
Open "c:\testfile.txt" For Input As #qq
While Not EOF(qq)
Input #qq, line
ii = ii + 1
Wend
If i i< 4 Then
For i = 0 To ii
text1(i).Text = a1.ReadLine
Next
a1.Close
End If
End If
это тот фрагмент проги, который глючит

[baranich]

Спасибо sash, твой совет пригодился.

[lord0n]

в каком месте глюк
а лючше прилипи проект или кусок

[baranich]

в каком месте глюк
а лючше прилипи проект или кусок

Спасибо уже всё сделано

[baranich]

Надо сделать так чтобы пока Textboxы пусты, кнопка Command1 была не активна, но когда все строки заполнены, она становилась активной.

[kif]

как все запущено.

изначально Command1.enable=false

Private Sub Text1_Change()
Command1.Enabled = (Len(Text1) + Len(Text2) + Len(Text3) + Len(Text4) > 0)
End Sub

Private Sub Text2_Change()
Command1.Enabled = (Len(Text1) + Len(Text2) + Len(Text3) + Len(Text4) > 0)
End Sub

Private Sub Text3_Change()
Command1.Enabled = (Len(Text1) + Len(Text2) + Len(Text3) + Len(Text4) > 0)
End Sub

Private Sub Text4_Change()
Command1.Enabled = (Len(Text1) + Len(Text2) + Len(Text3) + Len(Text4) > 0)
End Sub

[baranich]

надо чтоб он воспринимал не длину, а именно символы, а так можно с помощью пробелов увеличить длину, а текста нет. Нужен другой код.

[lord0n]

используй trim

[sash]

Так вроде правильней будет:

Код: Выделить всё


Private Sub Text1_Change()
     Command1.Enabled = Len(Trim$(Text1)) AND _
                        Len(Trim$(Text2)) AND _
                        Len(Trim$(Text3)) AND _
                        Len(Trim$(Text4))
End Sub


аналогично для остальных полей.

[uhm]

А так еще короче :

Код: Выделить всё

Command1.Enabled=Len(Trim$(Text1 & Text2 & Text3 & Text4))


[sash]

Зато если хоть одно поле не пустое (содержит что-то кроме пробелов) то вернет >0 => True. А как я понял надо чтобы все поля были заполнены.

[uhm]

Упс, и правда

[Konst_One]

Код: Выделить всё

Command1.Enabled=(Len(Trim$(Text1) & Trim$(Text2) & Trim$(Text3) & Trim$(Text4))>0)

[sash]

Тоже самое, достаточно 1ого заполненного поля для активации кнопки, что не соответствует условиям задачи!