| Вопрос: Помогите с текстовым файлом | Добавлено: 22.01.07 23:14 |
Автор вопроса:  Tishin
|
|
Доброе время суток!
В текстовом файле в начале каждой строки стоит время 08:00 08:20 08:40 08:50, 09:15, 11:20, 18:00 09:43 … 00:55 как прибавить к часам единицу, чтобы получилось: 09:00 09:20 09:40 09:50, 10:15, 12:20, 19:00 10:43 … 01:55 подскажите пожалуйста, очень нужно |
| Ответы | Всего ответов: 14 |
|
Номер ответа: 1 Автор ответа:  Djon Вопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #1 | Добавлено: 22.01.07 23:54 |
|
подскажите пожалуйста, очень нужно
Не поверишь, всем очень нужно... 
|
||
|
Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #2 | Добавлено: 23.01.07 00:11 |
Ну выделяешь время, например, по регекспу \d{2}:\d{2} и заменяешь каждый с помощью функции, которая добавляет час. Чтобы добавить час, берешь val(left(s, 1, 2)), добавляешь 1, if n=24 then n=2 и записываешь обратно format(n, "##"
|
||
|
Номер ответа: 3 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #3 | Добавлено: 23.01.07 08:36 |
|
2Sharp:А ты не замучаешся в ВБ с регэкспами?
Мой совет: читай построчно файл, считывай первые символы... и так далее.... |
||
|
Номер ответа: 4 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #4 | Добавлено: 23.01.07 08:44 |
|
for i =1 to len(Файл)
if Mid(Файл,i,1)="Нужный Символ" then меняй next i |
||
|
Номер ответа: 5 Автор ответа: ArsenyICQ: 298826769 Вопросов: 53 Ответов: 1732 |
Профиль | | #5 | Добавлено: 23.01.07 09:03 |
| Ты думаешь, буква "а","д","и", или чего-нибудь подобное не попадется? | ||
|
Номер ответа: 6 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #6 | Добавлено: 23.01.07 09:27 |
|
Ты думаешь, буква "а","д","и", или чего-нибудь подобное не попадется?
Не понял вопроса. Ты у меня спрашиваешь? |
||
|
Номер ответа: 7 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #7 | Добавлено: 23.01.07 13:29 |
| Что сложного в регекспах в VB? | ||
|
Номер ответа: 8 Автор ответа: DjonВопросов: 61 Ответов: 471 |
Web-сайт: Профиль | | #8 | Добавлено: 23.01.07 13:53 |
| Что такое "регекспа" ? | ||
|
Номер ответа: 9 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #9 | Добавлено: 23.01.07 18:27 |
| Поищи статью на этом сайте о регулярных выражениях. | ||
|
Номер ответа: 10 Автор ответа: FeverВопросов: 60 Ответов: 808 |
Профиль | | #10 | Добавлено: 23.01.07 21:18 |
|
по регекспу \d{2}:\d{2}
Скажите пжалста, а где в VB6 RegExpы? |
||
|
Номер ответа: 11 Автор ответа: СерёгаICQ: 262809473 Вопросов: 17 Ответов: 561 |
Web-сайт: Профиль | | #11 | Добавлено: 23.01.07 21:20 |
|
Private Sub Command1_Click()
Text1.Text = TransformTime(Text1.Text) End Sub Private Function TransformTime(Text As String) As String Dim cur As Long, s As String cur = 1 s = Text Do: DoEvents cur = InStr(cur + 1, Text, ":"
If cur = 0 Then Exit Do s = Mid(s, 1, cur - 3) + AddHour(Mid(s, cur - 2, 2)) + Mid(s, cur) Loop TransformTime = s End Function Private Function AddHour(Text As String) As String Dim ret As Byte ret = Val(Text) ret = ret + 1 If ret = 24 Then ret = 0 AddHour = "0" + CStr(ret) AddHour = Mid(AddHour, Len(AddHour) - 1, 2) End Function С тебя бутылка
|
||
|
Номер ответа: 12 Автор ответа: StarsВопросов: 41 Ответов: 239 |
Профиль | | #12 | Добавлено: 23.01.07 23:07 |
|
Две
|
||
|
Номер ответа: 13 Автор ответа: Tishin Вопросов: 5 Ответов: 5 |
Профиль | | #13 | Добавлено: 23.01.07 23:35 |
|
Мужики хоть три! Sanx за ответ! Все работает!
|
||
|
Номер ответа: 14 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #14 | Добавлено: 24.01.07 02:02 |
|
Скажите пжалста, а где в VB6 RegExpы?
Пожалуйста. Project - References - Microsoft VBScript Regular Expressions |
||
Страница: 1 |