Вам понравился наш сайт? Хотите сказать спасибо? Посмотрите объявления, может быть Вас что-нибудь заинтересует:
Как данные из файла перекинуть в массив
Библиотека кодов Visual Basic 6 Переменные, массивы, формат Как данные из файла перекинуть в массив
Visual Basic 6
| Как данные из файла перекинуть в массив |
|
Очень часто я сталкиваюсь с такой ситуацией, когда нужно данные из файла или длинной переменной разбить на отдельные составляющие, одновременно "загоняя" эти данные в массив данных. На самом деле, решение такой проблемы очень простое: открыть файл, присвоить переменной содержимое файла и с помощью функции SPLIT(про функцию можно прочитать здесь) разбить переменную на отдельные элементы. Private Sub Command1_Click() 'пример с сайта VBcode.FAQ (http://sharig.webzone.ru) Dim txt Dim FN As Integer FN = FreeFile Dim FName As String FName = "D:\1.txt" 'открыть файл Open FName For Input As #FN 'присвоить переменной содержимое файла txt = Input(LOF(FN), #FN) 'закрыть файл Close #FN 'создать нулевой массив Dim str1() As String 'создать отдельные элементы массива 'вместо постоянной vbCrLf можно использовать любой разделить str1 = Split(txt, vbCrLf) 'перебор элементов массива идет от 0 до n-1 For i = 0 To UBound(str1()) - 1 'вот, собстенно, и проверка MsgBox str1(i) Next End Sub
Источник: http://www.vbnet.ru/ |
VBCoding Библиотека кодов Visual Basic 6 Переменные, массивы, формат Как данные из файла перекинуть в массив
Библиотека кодов Visual Basic 6 Переменные, массивы, формат Как данные из файла перекинуть в массив