Страница: 1 |
Страница: 1 |
Вопрос: Помогите с текстовым файлом
Добавлено: 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
Автор ответа:
Arseny
ICQ: 298826769
Вопросов: 53
Ответов: 1732
Профиль | | #3
Добавлено: 23.01.07 08:36
2Sharp:А ты не замучаешся в ВБ с регэкспами?
Мой совет: читай построчно файл, считывай первые символы... и так далее....
Номер ответа: 4
Автор ответа:
Djon
Вопросов: 61
Ответов: 471
Web-сайт:
Профиль | | #4
Добавлено: 23.01.07 08:44
if Mid(Файл,i,1)="Нужный Символ" then меняй
next i
Номер ответа: 5
Автор ответа:
Arseny
ICQ: 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
Скажите пжалста, а где в VB6 RegExpы?
Номер ответа: 11
Автор ответа:
Серёга
ICQ: 262809473
Вопросов: 17
Ответов: 561
Web-сайт:
Профиль | | #11
Добавлено: 23.01.07 21:20
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
Пожалуйста. Project - References - Microsoft VBScript Regular Expressions