Программирование
Веб программирование

Пример работы с текстом

 
 

Вот небольшой пример работы с текстом. Может кому пригодится.

Option Explicit

    Dim strOpen As String, strTxt As String, f As String, strPath As String

Private Sub cmdExit_Click()
    Unload Me 'Выгружаем форму
End Sub

Private Sub cmdOpen1_Click()
    'ОТКРЫТИЕ ТЕКСТОВОГО ФАЙЛА: ВАРИАНТ №1
    Me.txtText.Text = ""
    strPath = App.Path & "\Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл
    f = FreeFile
    Open (strPath) For Input As #f 'Открываем файл для Чтения
        Do While Not EOF(f)
            Input #f, strOpen
                Me.txtText.Text = Me.txtText.Text & strOpen & vbCrLf
        Loop
    Close #f
End Sub

Private Sub cmdOpen2_Click()
    'ОТКРЫТИЕ ТЕКСТОВОГО ФАЙЛА: ВАРИАНТ №2
    strPath = App.Path & "\Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл
    f = FreeFile
    Open (strPath) For Input As #f 'Открываем файл для Чтения
        txtText.Text = Input(LOF(f), #f)
    Close #f
End Sub

Private Sub cmdOpen3_Click()
    'ОТКРЫТИЕ УКАЗАННУЮ СТРОКУ В ТЕКСТОВОМ ФАЙЛЕ: ВАРИАНТ №3
    Dim i As Integer
    strPath = App.Path & "\Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл
    f = FreeFile
    Open (strPath) For Input As #f
        For i = 1 To 4
            Input #f, strOpen
                Me.txtText.Text = strOpen
        Next i
    Close #f
End Sub

Private Sub cmdSave_Click()
    'СОХРАНЕНИЕ ТЕКСТОВОГО ФАЙЛА
    strTxt = txtText.Text 'Присваеваем переменно txtText.Text
    strPath = App.Path & "\Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл
    f = FreeFile
    Open (strPath) For Output As #f
        Print #f, strTxt 'Записываем
    Close #f 'Закрываем
End Sub

Есть вопросы? Спроси на нашем форуме!!
Джоб [10.11.2011 17:27]

А если файл только для чтения?? Как сохранить?

Alex [10.11.2011 19:31]

Нада как-то с файла снять атрибуты, и потом сохранять

Юра [10.11.2011 19:46]

Можешь воспользоваться http://vbbook.ru/visual-basic/atribytu-faiylov-visual-basic/

Юра [10.11.2011 19:59]

Можно вот так:

Private Sub cmdOpen1Click()
'ÎÒÊÐÛÒÈÅ ÒÅÊÑÒÎÂÎÃÎ ÔÀÉËÀ: ÂÀÐÈÀÍÒ ¹1

Me.txtText.Text = ""
strPath = App.Path & "\Save\Test.txt" 'Ïåðåìåííàÿ, óêàçûâàåò ïóòü êóäà áóäåò ñîõðàíÿòüñÿ ôàéë
f = FreeFile
Open (strPath) For Input As #f 'Îòêðûâàåì ôàéë äëÿ ×òåíèÿ
Do While Not EOF(f)
Input #f, strOpen
Me.txtText.Text = Me.txtText.Text & strOpen & vbCrLf
Loop
Close #f

SetAttr App.Path & "\Save\Test.txt", vbNormal
End Sub

Private Sub cmdSave
Click()
'ÑÎÕÐÀÍÅÍÈÅ ÒÅÊÑÒÎÂÎÃÎ ÔÀÉËÀ
strTxt = txtText.Text 'Ïðèñâàåâàåì ïåðåìåííî txtText.Text
strPath = App.Path & "\Save\Test.txt" 'Ïåðåìåííàÿ, óêàçûâàåò ïóòü êóäà áóäåò ñîõðàíÿòüñÿ ôàéë
f = FreeFile
Open (strPath) For Output As #f
Print #f, strTxt 'Çàïèñûâàåì
Close #f 'Çàêðûâàåì

SetAttr App.Path & "\Save\Test.txt", vbReadOnly
End Sub

Alex [10.11.2011 20:00]

Спасибо!

Гость [10.11.2011 20:10]

rivate Sub cmdOpen1Click()
'ОТКРЫТИЕ ТЕКСТОВОГО ФАЙЛА: ВАРИАНТ №1

Me.txtText.Text = ""
strPath = App.Path & "\Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл
f = FreeFile
Open (strPath) For Input As #f 'Открываем файл для Чтения
Do While Not EOF(f)
Input #f, strOpen
Me.txtText.Text = Me.txtText.Text & strOpen & vbCrLf
Loop
Close #f

SetAttr App.Path & "\Save\Test.txt", vbNormal
End Sub

Private Sub cmdSave
Click()
'СОХРАНЕНИЕ ТЕКСТОВОГО ФАЙЛА
strTxt = txtText.Text 'Присваеваем переменно txtText.Text
strPath = App.Path & "\Save\Test.txt" 'Переменная, указывает путь куда будет сохраняться файл
f = FreeFile
Open (strPath) For Output As #f
Print #f, strTxt 'Записываем
Close #f 'Закрываем

SetAttr App.Path & "\Save\Test.txt", vbReadOnly
End Sub

AlexNeverside [27.01.2012 21:54]

Подскажите, пожалуйста, почему при сохранении файла через commondialog в тексте присутствуют странные символы и как это исправить.

Алексей Mr. Run [04.05.2012 19:49]

Спасибо и в правду пригодилось еще раз спасибо автору



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.