| Вопрос: Как соединит строка txt в VB? | Добавлено: 01.02.08 15:47 |
Автор вопроса:  joris
|
|
Привет всем!!!
Есть файл в таком виде: 10200501;Суб.под. Иванов; 3600.00;0.00 Сергей Федорович 10200502;Суб.под. Кассир-;0.00;0.00 ов Алексей Владимрович 10200503;Суб.под. Андро-; 7200.00;0.00 пов Михаил Санович 10200504;ОКП Сарато; 7200.00; 0.00 Как соединит строка в таком виде: 10200501;Суб.под. Иванов Сергей Федорович; 3600.00;0.00 10200502;Суб.под. Кассиров Алексей Владимрович;0.00;0.00 10200503;Суб.под. Андропов Михаил Санович; 7200.00;0.00 10200504;ОКП Сарато; 7200.00; 0.00 Ребята помогите пожалуйста, не как не могу разберется. Заранее блогадарен!!! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  SHDZ ICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #1 | Добавлено: 01.02.08 15:52 |
| имя у тебя обрезается по 15 символов, во второй строке нету ";" - этой информации уже достаточно тоб парсить | ||
|
Номер ответа: 2 Автор ответа: SHDZICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #2 | Добавлено: 01.02.08 15:54 |
|
считуешь построчно файл, запоминаешь строку, считуешь следующую, если во второй нету ";", то значит это имя - добавляешь вторую строку с позицию передвторым символом ";"
записуешь полученную строку и т.д. до конца файла |
||
|
Номер ответа: 3 Автор ответа: joris Вопросов: 1 Ответов: 2 |
Профиль | | #3 | Добавлено: 01.02.08 16:01 |
| с помощью какой функции можно соединить слова, если можете провидите пример, заранее благодарю!!! | ||
|
Номер ответа: 4 Автор ответа: jorisВопросов: 1 Ответов: 2 |
Профиль | | #4 | Добавлено: 01.02.08 16:18 |
|
Вот вторая строка,
If Mid(slovo(0), 1, 1) <= 9 Then stroka = "" Else Print stroka End If а как подцепит с первый строка |
||
|
Номер ответа: 5 Автор ответа: SHDZICQ: 209382104 Вопросов: 39 Ответов: 244 |
Профиль | | #5 | Добавлено: 04.02.08 11:28 |
' Пишу много чего лишнего - чтоб лучше видно было 
vestext = "" ... for i = 0 to j stroka = "" if instr(slovo(j+1),";"  >0
'записали ИНН stroka = mid(slovo(j),1,9) ' отрезаем ИНН slovo(j) = mid(slovo(j),10,len(slovo(j))) ' пишем имя и все остальное stroka = stroka & _ mid(slovo(j),1,instr(slovo(j),";" -1) &
mid(slovo(j+1),1,instr(slovo(j+1),";" ) &
mid(slovo(j),instr(slovo(j),";" + _
1,Len(slovo(j))) vestext = vestext & stroka j = j + 1 else stroka = slovo(j) vestext = vestext & stroka end if next j |
||
Страница: 1 |