VBNet - Форум - Помогите разобраться с макросом по упрощению те...

Вопрос: Помогите разобраться с макросом по упрощению те... Добавлено: 08.04.03 17:48

Автор вопроса: Uvantolinen | Web-сайт: www.poznyakov.by.ru | ICQ: 138843935

В основном меня интересует, как добраться до оределенных символов, относительно параграфа.
Здесь пример того, что должен делать макрос или программа.
http://www.poznyakov.narod.ru/prog1.htm

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Gravity Вопросов: 6 Ответов: 120	Профиль \| \| #1	Добавлено: 08.04.03 19:07
	Вряд ли кто-нибудь тебе поможет ... потому что в основном тут отвечают на лёгкие вопросы ... а на сложные как-то стараются не отвечать Ну типа мой вопрос:"Как сделать эквалайзер ?" так и в твоём вряд ли кто-нибудь будет разрабатывать алгоритм ... а совет такой: попробуй использовать split Ответить

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

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #2

Добавлено: 08.04.03 21:16

Вроде получилось.
Замени Document_New на нужную тебе процедуру.
Только строку
7.00, 7.30, 8.00, 8.15, 8.30, 8.45 Новости
замени на
7.00 Новости

Private Sub Document_New()
CurrDocName = ActiveDocument.Name
Documents.Add
NewDocName = ActiveDocument.Name
MsgBox CurrDocName, , NewDocName
Do While Counter < Documents(CurrDocName).Paragraphs.Count
Counter = Counter + 1
TimeTV = GetTimeOrName(Documents(CurrDocName).Paragraphs(Counter).Range, 1)
NameTV = GetTimeOrName(Documents(CurrDocName).Paragraphs(Counter).Range, 2)
ocuments(NewDocName).Paragraphs.Add
NameTV2 = TimeTV
SearchEqu = Counter
o While SearchEqu < Documents(CurrDocName).Paragraphs.Count
SearchEqu = SearchEqu + 1
If NameTV = Right(Documents(CurrDocName).Paragraphs(SearchEqu).Range, Len(NameTV)) Then
    NameTV2 = NameTV2 & "," & GetTimeOrName(Documents(CurrDocName).Paragraphs(SearchEqu).Range, 1)
   Documents(CurrDocName).Paragraphs(SearchEqu).Range = "" ': Parc = Parc - 1
End If
Loop
   Documents(NewDocName).Paragraphs(Documents(NewDocName).Paragraphs.Count).Range = NameTV2 & NameTV
Loop
End Sub
Function GetTimeOrName(ShortVarName, Flag)
FirstChr32 = InStr(1, ShortVarName, " ")
Select Case Flag
Case 1
GetTimeOrName = Left(ShortVarName, FirstChr32)
Case 2
GetTimeOrName = Right(ShortVarName, Len(ShortVarName) - FirstChr32)
End Select
End Function

Ответить

Страница: 1 |