| Вопрос: Помогите! | Добавлено: 07.12.06 17:31 |
Автор вопроса:  Oleksiyko
|
| Как сделать чтобы при чтении с *.txt файла строки “слово1=слово2” то первое слово отображалось в ListBox, а второе в TextBox. Длина слов разная. |
| Ответы | Всего ответов: 7 |
|
Номер ответа: 1 Автор ответа:  Arseny ICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #1 | Добавлено: 07.12.06 18:56 |
|
Dim stroka As String
Dim mas List1.Clear: Text1.Text = "" Open "c:\xxx.txt" For Input As #1 Do While Not EOF(1) Line Input #1, stroka MsgBox stroka mas = Split(stroka, "=" 
List1.AddItem mas(0) Text1.Text = Text1.Text & mas(1) & vbCrLf Loop Close #1 |
||
|
Номер ответа: 2 Автор ответа: Fever Вопросов: 60 Ответов: 808 |
Профиль | | #2 | Добавлено: 07.12.06 21:17 |
|
public type DataType Field1 as string Field2 as string end type public DataArray() as DataType,DACount as long public sub LoadFile(Path as string) Dim stroka As String Dim mas as variant dim ff as long List1.Clear: Text1.Text = "" ff=freefile Open Path For Input As #ff Do While Not EOF(ff) Line Input #ff, stroka stroka=Trim(stroka) if stroka=vbnullstring then goto Continue mas = Split(stroka, "="
if ubound(mas)<>1 then 'а строка-то левая! goto Continue end if mas(0)=trim(mas(0)) mas(1)=trim(mas(1)) 'проверки...... redim preserve dataarray(dacount) with dataarray(dacount) .field1=mas(0) lstField1.additem .field1 .field2=mas(1) end with dacount=dacount+1 Continue: Loop Close #1 end sub ''''''''''''''''''''''' public sub lstfield1_click() txtField2.text=dataarray(lstfield1.listindex) end sub ну или что-то в этом роде, вариации на эту тему бесконечны. |
||
|
Номер ответа: 3 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #3 | Добавлено: 07.12.06 21:27 |
| A нафига так длинно? да еще с типами... | ||
|
Номер ответа: 4 Автор ответа: AlexanderВопросов: 19 Ответов: 118 |
Профиль | | #4 | Добавлено: 07.12.06 21:58 |
| епрст, выложите модуль для работы с ini фаилами, и не парьтесь. муторно, зато универсально. если никто не виложит, с работи приду и скину. | ||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 07.12.06 22:18 |
2 Alexander: Я тож подумал... 
Вот аж класс с примером: http://rapidshare.com/files/6505922/ini.zip |
||
|
Номер ответа: 6 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #6 | Добавлено: 08.12.06 15:17 |
|
Первый пример самый простой и менее делает затрат на системные ресурсы, тоесть быстрей работает, второй будет медленней работать.
Если хочешь не только достичь эту обработку данных из файлов, а и скорость то, советую прочитать где нить о работе FSO! |
||
|
Номер ответа: 7 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #7 | Добавлено: 08.12.06 15:19 |
| Както тестировал, за 10 секунд обрабатывал 1GB данных! Может даже меньше!!!! | ||
Страница: 1 |