Naeel Maqsudov писал(а):Естественно виснет!
Сделайте не Stroka=... а A=... (Ну и результат будет возвращаться myReplace=A)
Вот что у меня получилось
Public Function myReplace(A As String, B As String, C As String) As String
Dim myA As String
Dim myB As String
Dim Number As Integer
myA = A
myB = B
Do
Number = InStr(1, LCase(myA), LCase(myB))
If Number = 0 Then
Exit Do
End If
A = Left(A, Number - 1) + C + Right(A, Len(A) - Number - Len(C))
myA = A
Loop
myReplace = A
End Function
Сапасибо за помощь, вроде работает!!!
Вообще я верстальщик, верстаю в InDesign cs3
там есть функция помещать текст с тегами. вот пример
<ASCII-WIN>
<vsn:2.000000><fset:InDesign-Roman><ctable:=<Black:COLOR:CMYK:Process:0.000000,0.000000,0.000000,1.000000>>
<dps:TV-Kanal=<Nextstyle:TV-Kanal>>
<dps:TV-Day=<Nextstyle:TV-Day>>
<dps:TV-Text=<Nextstyle:TV-Text>>
<pstyle:TV-Day><0x041F><0x043E><0x043D><0x0435><0x0434><0x0435><0x043B><0x044C><0x043D><0x0438><0x043A>, 24 <0x043D><0x043E><0x044F><0x0431><0x0440><0x044F>
в примере написано "Понедельник, 24 ноября"
Что это за кодировка и как с ней бороться, я единственное понял что это "0x041F" есть буква "П" ну и тд. Как конвертировать текст в эту кодировку, может быть есть по этому поводу какая то литература, подскажите пожалуйста.