32 33 34 1 2 35 36 37 38 39 40 41 4 42 43 44 45 46 47 5 48 49 6 50 51 52 53 54 55 56 57 58 9 59 10 60 7 61 62 63 64 65 66 67 68 69 8 70 71 72 11 73 74 75 76 77 78 14 79 80 81 31 17 15 82 16 20 83 84 85 19 86 87 88 30 89 18 90 21 91 92 93 94 95 96 97 98 99 22 100 101 102 103 104 105 23 24 106 107 108 26 109 13 110 111 29 28 112 113 114 115
Внимание 50% отстъпка от цената на курса! побързайте да подадат
поискване
Преквалификация 30 курсове от 6900 рубли.
Курсове за всички от 3000 рубли. от 1500 рубли.
Допълнително обучение 36 курсове от 1500 рубли.
Работа с текстови файлове в Visual Basic.
Съвсем наскоро, в nepomnyu koferentsii видях лента на човек, който поиска най-малко някой му обясних елементарна работа с файлове. Тя ще изглежда толкова просто. Но това е лесно за тези, които имат малко по-напреднали в програмирането и който е само началото? Това е, наистина, непроходима гора! И аз сериозно се съмнявам, че някой от нашите други уеб майстори някога даде това поне малко внимание. Следователно, това ще направя и аз се опитвам да покажа в тази статия, само основните неща.
1. Откриване на файла, за да чете информация от него.
Така че, без проблеми, за да работят с текстови файлове, първо те трябва да бъдат отворени. Това се прави чрез Open изявление, като:
Отворете "C: \ text.txt" За Input Както # 1
Обърнете внимание на отваряне на файл режим - вход (за четене). Тук text.txt се отвори файл за четене на номер 1. Предупреждение. Файл номер - задължителен параметър и да влезе тя винаги трябва да бъде! Ако вашата програма няма да се налага да се справят с една дузина отваряте файлове, да следите номерата им ще бъде доста трудно. Използвайте тази функция, FreeFile. Все още не връща заема от броя (1-511) на файла:
Дим ФАЙЛНОМ Като цяло число
Отворете "C: \ text.txt" За Input Както ФАЙЛНОМ
Например, файлът се отваря! Сега ние трябва да се помисли за нещо от него. изявление Line Input чете от отворен файл една линия на всяко повикване. Следователно, за да се чете от файла, който трябва да се изгради един цикъл, който ще доведе този оператор до тогава, докато не са достигнали края на файла:
цикъл се изпълнява до достигане на края на файла
Смятате До EOF (ФАЙЛНОМ)
всеки път, когато ти се обадя на оператор Line Input го пише
променлива от нов ред
Line Input #FileNum, променлива
Затворете отворен файл може Затворете #FileNum оператор. И сега това е начина, по който трябва да изглежда като на практика:
Дим ФАЙЛНОМ Като цяло число
Дим TXT Както стринга
Дим alltxt Както стринга
отворете файла в режим само чета
Отворете "C: \ text.txt" За Input Както ФАЙЛНОМ
стартирането на посочения по-горе цикъл
Смятате До EOF (ФАЙЛНОМ)
прочита ред от файла с броя ФАЙЛНОМ и ние го поставете в
Line Input #FileNum, TXT
Сега, за да добавите съдържанието на променливата alltxt променлива TXT -
и линия хб-постоянна vbCrLf (Chr (13) + Chr (10)), като всяка линия
Тя трябва да бъде на нов ред :-)
alltxt = alltxt + ТХТ + vbCrLf
затворете файла с броя ФАЙЛНОМ
Ние се извлече съдържанието на променлива alltext
2. Отворете файла за запис на информация в него.
Запишете информацията във файла е още по-лесно. Тази операция се различава от предишната само от факта, че е необходимо да отворите файл в режим на запис:
Отворете "C: \ text.txt" за производство, както ФАЙЛНОМ
и вместо това на цикъла, което искате да вмъкнете оператор Print #, което пише на съдържанието на файла на променливата:
Печат #FileNum "АБВ на Visual Basic"
Print #FileNum, alltext
Дим ФАЙЛНОМ Като цяло число
Дим TXT Както стринга
отворете файла в режим на запис
Отворете "C: \ text.txt" за производство, както ФАЙЛНОМ
Печат #FileNum, TXT
затворете файла с броя ФАЙЛНОМ
Проверка на съдържанието на файла.
И искам да даде втори метод за записване на информация в досието - използване WritePrivateProfileStringByKeyName API-функции. Прочетете информация, която трябва с помощта на GetPrivateProfileString API-функции. Сега кажете - как всичко това работи?
1. Създаване на стандартен проект.
3.Udalite форма и кликнете два пъти върху модула.
Декларирам Функция GetPrivateProfileString ИЪ _
"Kernel32" Alias "GetPrivateProfileStringA" (ByVal _
lpszSection $, ByVal lpszKey $, ByVal lpszDefault $, _
ByVal lpszReturnBuffer $, ByVal cchReturnBuffer, _
lpszSection - име раздел
lpszKey - ключ име
lpszDefault - стойността се връща по подразбиране, с линията ""
lpszReturnBuffer - място за линията
cchReturnBuffer - размер (дължина) Определени линия
lpszFile - име на файла
Декларирам Функция WritePrivateProfileStringByKeyName% Lib _
"Kernel32" Alias "WritePrivateProfileStringA" (ByVal _
lpApplicationName Както стринга, ByVal lpKeyName Както стринга, _
ByVal lpString Както стринга, ByVal lplFileName Както стринга)
lpApplicationName - име раздел
lpKeyName - ключ име
lplFileName - име на файла
5. Създаване на подпрограма Майн - просто въведете Sub Main.
6. В Главна подпрограма, тип:
test.ini създадете файл в него заглавието на "главния", ключ "URL" _
Обадете WritePrivateProfileStringByKeyName ( "Main", "URL", _
test.ini създадете файл в него заглавието на "главния", ключ "Email" _
и линията "[email protected]"
Обадете WritePrivateProfileStringByKeyName ( "Main", "електронна поща", _
Когато стартирате проекта на C: карам веднага Test.ini файл ще бъде създаден със следното съдържание:
8: -О. Не е ли просто истината? И помисли малко по-трудно. Така че, файлът е създаден и ние porobuem чете информация от там. Премахване на всичко, което е между редовете "Sub Main ()" и "End Sub". Въведете следното:
Ние създаваме променлива, която ще peredovat линия
Дим MyString Както стринга
"пълнеж" неговите пространства
test.ini файл отваря файла в променливата MyString _
записва поредица от титлата на "главния", ключ "URL"
Обадете GetPrivateProfileString ( "Main", "URL", "", MyString, _
показва съдържанието на променливата MyString
test.ini файл отваря файла в променливата MyString _
се записва от заглавния ред на "главния", ключ "Email"
Обадете GetPrivateProfileString ( "Main", "електронна поща", "", MyString, _
показва съдържанието на променливата MyString
Свързани статии