| Вопрос: Народ, подскажите ПЛЗ про строки. | Добавлено: 11.04.05 22:01 |
Автор вопроса:  TIM
|
|
Есть документ Word (*.doc) или (*.txt) в нем все строки пронумерованы т.е. 1. "Привет", 2. "Как дела?" итд.
Вопрос: как показать (читать) строки 1, 2... в отдельных TextBox - ах (Text1.Text = "Привет", Text2.Text = "Как дела?"...)Не загружая весь документ. Если можно пример ПЛЗ. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: mistershem Вопросов: 8 Ответов: 16 |
Web-сайт: Профиль | | #1 | Добавлено: 16.04.05 11:06 |
|
Тебе так надо было ?
Public Sub For_Tim(path_file As String, num_record As String, name_txtbox As TextBox)  im tmp As String, str1 As String, ret As String
im pos As Integer, i As Integer
Open path_file For Input As #1 tmp = Input(FileLen(path_file), 1) Close #1 'ищем номер записи + ." (т.е. 1." или 2." 
pos = InStr(1, tmp, num_record & "."""
str1 = "" i = 0 'по буквам формируем текст после номера записи с кавычкой o While ret <> """"
i = i + 1 ret = Mid(tmp, i + pos + 2, 1) str1 = str1 & ret Loop 'сформированный текст name_txtbox.Text = """" & str1 End Sub Private Sub Command1_Click() im file As String
file = "c:\@ For_TIM\text.txt" 'полный путь к файлу Call For_Tim(file, 3, Text1) End Sub Пример содержания текстового файла: 1."Привет" 2."Как дела?" 3."Пока не родила" 4."А у тебя ?" 5."А у меня в квартире газ" |
||
Страница: 1 |