Vlad&slav
15.12.2009, 21:44
Dim strText,sapi
strText = InputBox("Введите ваш текст","123")
strText = Replace(strText, ".", " в штанах ")
strText = Replace(strText, ",", " без штанов ")
MsgBox strText
Сохраняете в блокноте как 123.vbs
запускаете , вставляете текст и читаете результат
strText = InputBox("Введите ваш текст","123")
strText = Replace(strText, ".", " в штанах ")
strText = Replace(strText, ",", " без штанов ")
MsgBox strText
Сохраняете в блокноте как 123.vbs
запускаете , вставляете текст и читаете результат