VBNet - Форум - как дописать код?

Вопрос: как дописать код? Добавлено: 15.11.06 18:36

Автор вопроса: tupoy

вообщем вот ...
задание было такое типа есть тхт файл в котором записано
слово - синоним
слово - синоним
в ворде пишем предложение а потом читая тхт файл заменяем слова в предложении на синонимы в тхт файле...

вот код :
Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 01.10.2006 Моторин
'
    Dim fs, f, s, r, TargetString, SourceString
    Const ForReading = 1, ForWriting = 2
    ' типа подготовили селектор
    Application.Keyboard (1049)
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting

    ' откроем файлу C:\context.txt в которой написаны слова так
    ' слово1 - синоним1
    ' слово2 - синоним2
    ' слово2 - синоним3

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.OpenTextFile("C:\context.txt", ForReading)
    Do While f.AtEndOfStream <> True
        'читаю строку
        r = f.ReadLine
        ' определяю слова заменяемое и синоним из считанной строки
        SourceString = Trim(Left(r, InStr(r, "-") - 1))
        TargetString = Right(r, Len(r) - InStr(r, "-"))
        'понеслась родимаянах...
        With Selection.Find
            .Text = SourceString
            .Replacement.Text = TargetString
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       Loop
    f.Close
End Sub

теперь нам усложнили задание и надо оставшиеся слова из предложения записать в этот тхт файл...

вот так вот...
кто нить может дописать??
срочно надо...
Ответить

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

Номер ответа: 1 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927	Профиль \| \| #1	Добавлено: 15.11.06 20:45
	Sharp, твой выход!! )) Ответить

Номер ответа: 2 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #2	Добавлено: 15.11.06 23:31
	А, да 10 wmz Ответить

Номер ответа: 3 Автор ответа: tupoy Вопросов: 1 Ответов: 1	Профиль \| \| #3	Добавлено: 16.11.06 14:43
	вы в своем уме!? за 2е строчки 10вмз??? я думал на этом форуме люди обитают... поищу бесплатно пАка! Ответить

Номер ответа: 4 Автор ответа: GSerg Вопросов: 0 Ответов: 1876	Профиль \| \| #4	Добавлено: 16.11.06 16:55
	Голос Копелляна за кадром: "Вот так Shтирлиц уже две недели водил за нос всё гестапо..." Ответить

Номер ответа: 5 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979	Web-сайт: sharpc.livejournal.com Профиль \| \| #5	Добавлено: 16.11.06 19:36
	Вопрос был поставлен так: кто нить может дописать?? срочно надо... Ответ, полагаю, абсолютно верный и никакой несуразицы в нем нет. Так много, потому что срочно Ответить

Номер ответа: 6 Автор ответа: Sacred Phoenix ICQ: 304238252 Вопросов: 52 Ответов: 927	Профиль \| \| #6	Добавлено: 16.11.06 20:53
	вы в своем уме!? за 2е строчки 10вмз??? сразу видна разница между аборигенами и пришельцами )) Ответить

Страница: 1 |