еще один вопрос

[WhiTe*DeviL]

Как мне загружать информацию из файла в тектбокс? Т.е. каждая строчка в файле загружается в отдельный текстбокс.
И еще. Как проделать то же самое, только если в файле есть несколько блоков и мне нужно загрузить только один из них?

[ANDLL]

на форме - textbox с именем txt и индексом 0:

Код: Выделить всё

public sub loadfile(byval fName as string)
dim fn as integer,bf as string
fn=freefile
open fname for input as #fn
do until(eof(fn))
line input#fn,bf
if len(bf) then
load txt(txt.ubound+1)
txt(txt.ubound).visible=true
txt(txt.ubound).top=txt(txt.ubound-1).top+txt(txt.ubound).height+10
txt(txt.ubound).text=bf
end if
loop
close#fn
end sub


[WhiTe*DeviL]

А как быть с блоками?

[Sirik]

2 WhiTe*DeviL: Какой формат у файла и у блоков?
Не зная формата данных, как сделать загрузку?

[WhiTe*DeviL]

в txt"шнике вся информация поделена на блоки, например вот так ///, т.е. со строчки после /// идет начло блока

[Sirik]

Ты хочешь как: грузить все блоки и потом выбирать нужный или сразу (на лету) загружать необходимый блок?
Если второе, то тебе нужно как-то знать какой именно блок надо грузить (нк может по признаку например).

Растолкуй по-подробнее, дай кусок txt

[Шурик]

Где-то я уже это видел.....
Сделай идентификатор у блока например:

Код: Выделить всё

///1
......текст
///2
......текст

и т.д.


соответсвенно просчитывай ///2 - номер блока
или в этом случае с блоками лучше использовать INI структуру

[ANDLL]

Думаю, для ини файлов, эти функции тебе помогут:

Код: Выделить всё

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

[Шурик]

Работа с INI, вот посмотри:

[WhiTe*DeviL]

2 Sirik
Вот кусок файла

Код: Выделить всё

2
0
0
2
0
2
///
2
2
2
0
0
2
///
0
0
0
0
0
0

Здесь приведено 3 блока. Блоки хотелось бы подгружать на лету...
Каждую строку блока мне нужно загрузить в отдельный текстбокс.
Если можно - дайте код Буду очень благодарен!!

[Sirik]

Вот смотри, может и поможет.

Будут вопросы, пиши.