Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
vDATA = "alpha besta gamma delta"
aUnCorr = Array ("alpa","besta","gama","dela")
aCorr = Array ("alpha","beta","gamma","delta")
Set Dict = CreateObject("Scripting.Dictionary")
For i=0 To UBound(aCorr)-1
Dict.Add aUnCorr(i), aCorr(i)
Next
Set RegEx = CreateObject("VBScript.RegExp")
With RegEx
.Global=True
.IgnoreCase=False
.Multiline=False
.Pattern="[^ \s]+(?=[ \s]|$)"
End With
For Each Matches in RegEx.Execute(vDATA)
If Dict.Exists(Matches.Value) Then
vDATA = Replace (vDATA,Matches.Value,Dict.Item(Matches.Value),1,1)
End If
Next
MsgBox vDATA
|
|
