| |
Как данные из файла перекинуть в массив |
|
| |
Очень часто я сталкиваюсь с такой ситуацией,
когда нужно данные из файла или длинной
переменной разбить на отдельные составляющие,
одновременно "загоняя" эти данные в массив
данных. На самом деле, решение такой проблемы
очень простое: открыть файл, присвоить
переменной содержимое файла и с помощью функции 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
|
|
| |
|
|
|
|