Программирование "удобняшек" на VBScript - [5] :: Прикладное программирование

Добрый вечер,
Кто может помочь внести изменения в макрос, написанный в VBS ?
Речь идет о макрос к программе перевода Промт -
Я хочу включить информацию, находящуюся в тексте макроса в формате

Dictionary.Add "мама", "maman"
Dictionary.Add "папа", "papa"

в последовательный файл в формате txt - Но я не умею это делать. Помогите пожалуйста.
Заранее благодарю всех за помочь -

Цитата:

код:

Set RE = New RegExp
RE.Global = True
'
Set Dictionary = CreateObject("Scripting.Dictionary")

Dictionary.Add "папа", "papa"
Dictionary.Add "мама", "maman"
Dictionary.Add "марина", "Marina"

Sub PreserveForDictionary(ParaIndex)
a = Dictionary.Keys
For i = 0 To Dictionary.Count -1
RE.Pattern = a(i)
Set Matches = RE.Execute(Paragraphs(ParaIndex).SourceText)
For Each Match in Matches
Call Paragraphs(ParaIndex).Preserve(Match.FirstIndex, Match.Length, False, 0)
Next
Next
End Sub

Sub ReplaceFromDictionary(ParaIndex)
Set TargetRanges = Paragraphs(ParaIndex).Ranges
For I = 0 To TargetRanges.Count - 1
Set TargetRange = TargetRanges(I)
Value = Paragraphs(ParaIndex).SourceText(TargetRange.OriginStart, TargetRange.OriginLength)
If Dictionary.Exists(Value) Then
Value = Dictionary(Value)
Call Paragraphs(ParaIndex).ReplaceTarget(TargetRange.Start, TargetRange.Length, Value)
TargetRange.Length = Len(Value)
TargetRange.Property("PROMT_MACROS") = "This text was changed by macro!!!"
End If
Next
End Sub

Sub Document_BeforeTranslation(ParaIndex)
PreserveForDictionary(ParaIndex)
End Sub

Sub Document_AfterTranslation(ParaIndex)
ReplaceFromDictionary(ParaIndex)
End Sub

Модерирует : ShIvADeSt
ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112