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

Создание файла с произвольным доступом и вод значений

 
 

Друзья сегодня  я вам хочу показать что можно делать с произвольными файлами. Эта программа создает на диске С:/  файл с именем "Диман.txt" и записывает в файл фозраст и имя человека. Так же для удобства присутствует счетчик цикла For NEXT.

Public Class Form1 
Dim imy As String
Dim voz As Single
Dim s As Single
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileOpen(1, "c:/Диман.txt", OpenMode.Append)
For i = 1 To 4
imy = InputBox("Введите имя")
voz = InputBox("Введите возраст")
Print(1, imy, voz)
Next i
FileClose(1)
End Sub
End Class

Есть вопросы? Спроси на нашем форуме!!
Gelo123321 [07.03.2012 02:30]

Хорошо! Долго искал, и нашел!))

Razor64 [01.07.2012 11:00]

А как ПРОЧИТАТЬ весь текст ДО КОНЦА в текстовое поле?
FileOpen(1, "D:\r.txt", OpenMode.Input)
...
А дальше?

Release [01.07.2012 17:22]

Из текстового файла получить весь текст в TextBox?

Razor64 [01.07.2012 18:12]

Да

Release [01.07.2012 21:40]

Dim file As String = OpenFileDialog1.FileName ' Получаем путь в переменную
Dim reader As New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding(1251)) ' Считываем файл в переменую с кидировкой 1251
TextBox1.Text = reader.ReadToEnd ' Получаем текст из переменной сначало до конца
reader.close() ' Считывание файла заканчивается

Razor64 [02.07.2012 04:34]

Да я не классом (IO.File) имел ввиду, а именно с помощью FileOpen(1, "D:\r.txt", OpenMode.Input) нужно сделать...

Release [02.07.2012 07:14]

FileOpen он открывает и записывает текст в файл. Попробуй FileGet

pjp07190 [14.02.2013 14:52]

Ответ для Razor64


FileOpen(1, "c:dat_all.txt", OpenMode.Input)
Do Until EOF(1) 'читаем строки из файла до конца
s = LineInput(1)
Loop



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




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