Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с текстами / 7 сообщений из 7, страница 1 из 1
25.05.2010, 12:37
    #36647252
SRizaev
SRizaev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
Всем привет!
Нужна ваша помощь

У меня есть текстовой файл с текстом примерно так:

24.05.2010|14:00 (30 минут)|11|2
24.05.2010|14:30 (30 минут)|11|4
.....

как можно отделить текст ктр разделен с |.
например, мне нужно инфо между символам |
так должен выглядеть в интерфейсе VB:
дата:24.05.2010
время:14:00 (30 минут)
смена:11
кол-во:2

пожалуйста подскажите как (с примером)

спасибо заранее
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2010, 12:40
    #36647265
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
SRizaev,
а если строки обрезать?
http://www.vbfaq.ru/2008/12/kak-obrezat-stroku/
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2010, 12:43
    #36647275
Игорь Горбонос
Игорь Горбонос
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
> Автор: SRizaev
> как можно отделить текст ктр разделен с |.

Почитай о функции Split

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2010, 12:51
    #36647321
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
SRizaev,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Private Sub Command1_Click()
Open "C:\nastr.txt" For Input As # 1 
Do Until EOF( 1 )
Line Input # 1 , strtxt
strtemp = Left(strtxt,  10 )
strtemp2 = Mid(strtxt,  12 ,  16 )
List1.AddItem (strtemp)
List2.AddItem (strtemp2)
Loop
End Sub
и дальше с остальными столбцами также
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2010, 14:24
    #36647652
SRizaev
SRizaev
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
aduka05adm,

я немогу конкретно указать кол-во символов, потому что я не знаю из скольки символов состоит инфо между "|"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2010, 14:26
    #36647657
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
SRizaevя немогу конкретно указать кол-во символов, потому что я не знаю из скольки символов состоит инфо между "|"

Для этого есть InStr
Но Игорь уже сказал про Split , рекомендую воспользоваться именно этим
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.05.2010, 17:41
    #36648467
aduka05adm
aduka05adm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
работа с текстами
SRizaevaduka05adm,

я немогу конкретно указать кол-во символов, потому что я не знаю из скольки символов состоит инфо между "|"
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Command1_Click()
Dim A As Variant
Open "C:\nastr.txt" For Input As # 1 
Do Until EOF( 1 )
Line Input # 1 , strtxt
A = Split(strtxt, "|")
List1.AddItem (A( 0 ))
List2.AddItem (A( 1 ))
MsgBox A( 0 )
MsgBox A( 1 )
Loop
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / работа с текстами / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]