Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 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-сайт: www.vk-book.ru
 Профиль | | #1
Добавлено: 22.01.07 23:54
подскажите пожалуйста, очень нужно

Не поверишь, всем очень нужно... :)

Ответить

Номер ответа: 2
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #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-сайт: www.vk-book.ru
 Профиль | | #4
Добавлено: 23.01.07 08:44
for i =1 to len(Файл)
if Mid(Файл,i,1)="Нужный Символ" then меняй
next i

Ответить

Номер ответа: 5
Автор ответа:
 Arseny



ICQ: 298826769 

Вопросов: 53
Ответов: 1732
 Профиль | | #5 Добавлено: 23.01.07 09:03
Ты думаешь, буква "а","д","и", или чего-нибудь подобное не попадется?

Ответить

Номер ответа: 6
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #6
Добавлено: 23.01.07 09:27
Ты думаешь, буква "а","д","и", или чего-нибудь подобное не попадется?

Не понял вопроса. Ты у меня спрашиваешь?

Ответить

Номер ответа: 7
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #7
Добавлено: 23.01.07 13:29
Что сложного в регекспах в VB?

Ответить

Номер ответа: 8
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #8
Добавлено: 23.01.07 13:53
Что такое "регекспа" ?

Ответить

Номер ответа: 9
Автор ответа:
 Sharp


Лидер форума

ICQ: 216865379 

Вопросов: 106
Ответов: 9979
 Web-сайт: sharpc.livejournal.com
 Профиль | | #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-сайт: houselab.narod.ru
 Профиль | | #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-сайт: sharpc.livejournal.com
 Профиль | | #14
Добавлено: 24.01.07 02:02
Скажите пжалста, а где в VB6 RegExpы?

Пожалуйста. Project - References - Microsoft VBScript Regular Expressions

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам