программа, которая работает с файлом txt

[medved_program]

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

Вот что я пытался наскрябать

Private Sub CommandButton1_Click()
Dim arr, i&
    arr = Split(CreateObject("Scripting.FileSystemObject").Getfile("e:\test\test.txt").OpenasTextStream(1).ReadAll, vbNewLine)
    For i = 0 To UBound(arr)
        If arr(i) = TextBox1.Text Then
        myStrin = TextBox1.Text
            f = FreeFile
            Open "D:\test.txt" For Append As #f
            Print #f, myStrin
            Close #f
            End If
    
    Next


End Sub

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Hugo121]

Ну почти наскрябал
Только вот вопрос - почему на кибере нельзя было сразу описать задачу как здесь? Тогда бы сразу полный код и был бы...

[medved_program]

Сообщение от Hugo121

Ну почти наскрябал
Только вот вопрос - почему на кибере нельзя было сразу описать задачу как здесь? Тогда бы сразу полный код и был бы...

Д я подумал, уже достал тебя с этой темой