Опубликован: 31.08.2006 | Доступ: свободный | Студентов: 3927 / 218 | Оценка: 4.14 / 3.89 | Длительность: 39:16:00
ISBN: 978-5-9570-0021-3
Лекция 13:

Исследование текстовых файлов и обработка строк

Краткая справка по лекции 12

Чтобы Сделайте следующее
Открыть текстовый файл Используйте функцию FileOpen. Например: FileOpen(1, OpenFileDialog1.FileName, OpenMode.Input)
Получить строку ввода из текстового файла

Используйте функцию LineInput. Например:

Dim LineOfText As String
LineOfText = LineInput(1)
Проверить, не достигнут ли конец файла

Используйте функцию EOF. Например:

Dim LineOfText, AllText As String
Do Until EOF(1)
	LineOfText = LineInput(1)
	AllText = AllText & LineOfText & _
		vbCrLf
Loop
Закрыть открытый файл Используйте функцию FileClose. Например: FileClose(1)
Отобразить текстовый файл на экране

Используйте функцию LineInput для копирования текста из открытого файла в строковую переменную, а затем присвойте эту строковую переменную объекту текстового поля. Например:

Dim AllText, LineOfText As String
Do Until EOF(1) 		'читаем строки из файла
	LineOfText = LineInput(1)
	AllText = AllText & LineOfText & _
		vbCrLf
Loop
txtNote.Text = AllText	' отображаем файл
Отобразить диалоговое окно Open

Добавьте в вашу форму элемент управления OpenFileDialog, а затем используйте метод ShowDialog объекта диалога открытия файла. Например:

OpenFileDialog1.ShowDialog()
Создать новый текстовый файл Используйте функцию FileOpen. Например: FileOpen(1, SaveFileDialog1.FileName, OpenMode.Output)
Отобразить диалоговое окно Save As

Добавьте в форму элемент управления SaveFileDialog, а затем используйте метод ShowDialog объекта диалога сохранения файла. Например:

SaveFileDialog1.ShowDialog()
Сохранить текст в файле

Используйте функцию Print или PrintLine. Например:

PrintLine(1, txtNote.Text)
Преобразовать символы текста в ASCII-коды

Используйте функцию Asc. Например:

Dim Code As Short
Code = Asc("A")		' Code равна 65
Преобразовать ASCII-коды в символы текста

Используйте функцию Chr. Например:

Dim Letter As Char
Letter = Chr(65) 		'Letter равна "A"
Выделить символы из середины строки.

Используйте метод Substring или функцию Mid. Например:

Dim Cols, Middle As String
Cols = "Первая Вторая Третья"
Middle = Cols.SubString(6, 6)
'Middle = "Вторая"
Зашифровать текст

Используйте оператор Xor и определяемый пользователем код шифрования. Например, этот блок кода использует Xor и код пользователя для шифрования текста из текстового поля txtNote и сохраняет его в файле encrypt.txt в виде набора чисел:

strCode = InputBox("Введите код зашифрования")
Code = CShort(strCode)
charsInFile = txtNote.Text.Length
FileOpen(1, SaveFileDialog1.FileName, _
OpenMode.Output)
For i = 0 To charsInFile - 1
	letter = txtNote.Text.Substring(i, 1)
	Print(1, Asc(letter) Xor Code)
Next
FileClose(1)
Расшифровать текст

Запросите у пользователя код, который он выбрал для шифрования текста и используйте Xor для расшифровки этого текста. Например, блок кода использует Xor и код пользователя для обращения шифрования, созданного в предыдущем примере:

strCode = InputBox("Введите код расшифрования")
Code = CShort(strCode)
FileOpen(1, OpenFileDialog1.FileName, _
OpenMode.Input)
Do Until EOF(1)
	Input(1, Number)
	ch = Chr(Number Xor Code)
	Decrypt = Decrypt & ch
Loop
txtNote.Text = Decrypt
Жанболат Шаймерден
Жанболат Шаймерден

Можно ли выбирать язык для надписей и команд в среде разработки?

Анатолий Федоров
Анатолий Федоров
Россия, Москва, Московский государственный университет им. М. В. Ломоносова, 1989
Светлана Ведяева
Светлана Ведяева
Россия, Саратов