Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Переменные, массивы, числа  
     
  Как данные из файла перекинуть в массив  
  Очень часто я сталкиваюсь с такой ситуацией, когда нужно данные из файла или длинной переменной разбить на отдельные составляющие, одновременно "загоняя" эти данные в массив данных. На самом деле, решение такой проблемы очень простое: открыть файл, присвоить переменной содержимое файла и с помощью функции 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
 
     
  VBNet online (всего: 51616)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам