Друга моя възстар малка статия по темата за работа с текстови файлове, Visual Basic 6.0 инструменти.
В тази статия ще се съсредоточи върху работата с текстови файлове с помощта на Visual Basic.
файлов дескриптор
За да работите с файловете на операционната система използва входно / изходни канали, т.е. всеки отворен файл има свой собствен номер.
В Visual Basic, има функция FreeFile. която връща броя на свободните канали, които могат да се използват за работа с файла. Ако няма свободни канали, възниква грешка.
RangeNumber -neobyazatelny параметър, който позволява да се определи диапазона на стойностите налични канали ако RangeNumber = 0 (по подразбиране), след това се връща към номера на канала от обхвата 1-255, и ако 1, тогава диапазона 256-511.
променлива моятФайл моятФайл = FreeFile ", дадено свободен канал, а сега може да се използва за работа с файлове
Работа с текстови файлове
Най-често се срещат с текстови файлове. Текстови файлове са съставени от набора ASCII символи (American Standard Code за информационен обмен - American Standard Code за информационен обмен).
Преди да започнете да пишете / четат данни, трябва да отворите файла, това е направено с помощта на Откритото първенство на оператор (име на файл) За [Input | изход | Добавяне] Както # FileNumber. когато:
Input - за отваряне на файл за четене, ако файлът не съществува, възниква грешка;
Изход - за протокола, ако файлът не съществува, тя е създадена и ако файлът съществува, тя не се промени;
Добавяне - да се добави, ако файлът не съществува той ще бъде създаден и ако файлът съществува, данните ще бъдат добавени към края на файла.
Например, ако е необходимо да се помисли за първия ред на всеки файл в променлива S, тогава кода ще бъде:
Дим моятФайл "Декларирам променлива безплатно файл
Дим S Като променлива String ", за да съхранявате данните за четене
МоятФайл = FreeFile "Присвояване на свободен канал за файла
Open ( "C: test.txt") за въвеждане Както #MyFile "test.txt Отваряне на файл за четене
Line Input #MyFile, S 'чете първия ред на файла в променлива test.txt S
Близо #MyFile "Затваряне на файла
Ако, например, е необходимо да се помисли не за първи и пети ред, кодът е малко по-различно:
Дим моятФайл "Декларирам променлива безплатно файл
Дим аз Както целочислена променлива "за цикъл
Дим TS като променливи String "за реда за четене
Дим S Като променлива String ", за да задържи окончателните данни
МоятФайл = FreeFile "Присвояване на свободен канал за файла
Open ( "C: test.txt") за въвеждане Както #MyFile "test.txt Отваряне на файл за четене
Line Input #MyFile, TS "Четем ред на файла по ред test.txt
Ако аз => 5 Тогава S = TS "Ако пети ред, да го приберете в променлива S
Близо #MyFile "Затваряне на файла
И ако това е необходимо, за да чете всички данни от файла, след което:
Дим моятФайл "Декларирам променлива безплатно файл
Дим S Като променлива String ", за да съхранявате данните за четене
МоятФайл = FreeFile "Присвояване на свободен канал за файла
Open ( "C: test.txt") за въвеждане Както #MyFile "test.txt Отваряне на файл за четене
S = Input $ (LOG (1), 1) "да се чете целия файл в променлива S
Близо #MyFile "Затваряне на файла
За да запишете във файл, има оператори Print # FileNumber. Данни и Напиши # FileNumber. Data. Разграничава тези оператори само това, което пишат данни пише, цитирани и котировка Печат.
По-долу следния код ще създаде C: диск test.txt нов файл и да го напиша два реда, като първият без кавичките, а втората в кавички:
Дим моятФайл "Декларирам променлива безплатно файл
МоятФайл = FreeFile "Присвояване на свободен канал за файла
Open ( "C: test.txt") за производство, както #MyFile "Отворено файла за писане test.txt
Печат #MyFile "Тази линия е написано оператор печат, тя е без кавичките ..."
Напиши #MyFile "Тази линия се записва Напиши оператор, тя цитира ..."
Близо #MyFile "Затваряне на файла
Това е всичко. Както може би сте разбрали, е оператор Затвори # FileNumber да затворите файла. в този случай, # FileNumber е задължително.
дали е възможно с помощта на този текст dopisovat код във файла, а не да изтрива предишната и пишат определения?
Възможно е, за това ще трябва да използвате добави ключова дума:
Дим моятФайл толкова дълго,
МоятФайл = FreeFile
Open ( "C: test.txt") За Добавяне Както #MyFile
Печат #MyFile "test1"
Напишете #MyFile "test2"
Близо #MyFile
Дим моятФайл толкова дълго,
МоятФайл = FreeFile
Open ( "C: test.txt") За Добавяне Както #MyFile
Печат #MyFile, "Hello"; vbNewLine; "Здравей"
Близо #MyFile
Този код ще напишете думата "Здравейте" на 2 линии, но ако ти пиша дълъг код (необходимо е да се направи много нови точки) текста просто не намалява! дали е възможно да се прехвърлят на кода по линия 2?
Печат #MyFile "Privet1"
Печат #MyFile "Privet2"
Печат #MyFile "Privet3"
Печат #MyFile "Privet4"
Печат #MyFile "Privet5"
Печат #MyFile "Privet6"
Печат #MyFile "Privet7"
или да вземе текст полето, което Многолинейно = True имот:
Печат #MyFile, TextBox1.Text
Здравей Алекс!
Имам за вас на този въпрос.
Задачата такава.
текст Дън трябва да бъдат разделени според него.
Например: Добре дошли в моя сайт.
Програмата трябва да отпечатате:
добър
даване
за
мой
сайт.
Благодаря предварително за помощ.
Дим аз Като цяло число
Дим ARR ()
Пр = Split ( "Добре дошли в моя сайт.")
За I = 0 до UBound (ARR) - 1
Print Пр (и)
Следваща аз
напълно забравен, Сплит функция може дори да вземе втори параметър, който показва набор от знаци стойност - разделител, например:
Дим ARR ()
Пр = Split ( "потребителско име, мечка!", "г")
DATA например ще се върне масив:
Аз имам един въпрос.
Мога да добавите свой собствен текст във файла (като * .exe)
отваряне на бележника си, текстът ми се вижда в края.
Как да премахнете текст (в края на файла), без да се самоубие изпълним.
Колко не са опитвали паузи за приложенията. (
Свързани статии