Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подмена символов в текстовом файле / 6 сообщений из 6, страница 1 из 1
01.06.2010, 09:01
    #36660459
Youra Polishuk
Youra Polishuk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подмена символов в текстовом файле
Как можно подменить символы в текстовом файле.
Это нужно сделать скриптом, который бы запускался на любой Windows XP и т.д.
Мне нужно в текстовом файле my_example.ind2 заменить буквы следующим образом:
Ю заменить на Я
ю заменить на я
У меня скрипт не отличает регистр букв.
ю меняется на Я! Т.е. пофигу на регистр букв.
Как осуществлять замену с учетом регистра?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
@echo off
chcp  1251 

for /f "delims=" %%a in ('my_example.ind2') do call :_replace "%%a"
goto eof

:_replace 
set i=%~ 1 
echo %i%
set i=%i:Ю=Я%
set i=%i:ю=я%
echo %i%>>my_example.txt
goto eof
:eof

Может можно какой-нибудь скрипт VBA запустить с помощью стандартных средств?
Извините, что не совсем по теме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2010, 10:05
    #36660576
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подмена символов в текстовом файле
Youra Polishuk, только для формата ASCII
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
nameFile = "C:\Temp\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(nameFile) Then
    Set TextStream = fso.OpenTextFile(nameFile,  1 , ,  0 )
    buf = TextStream.ReadAll()
    TextStream.Close
    Set TextStream = fso.OpenTextFile(nameFile,  2 , ,  0 )
    buf = Replace(buf, "Þ", "ß")
    buf = Replace(buf, "þ", "ÿ")
    TextStream.Write buf
    TextStream.Close
End If
можно сохранить в файл myscript.vbs, запускать в командной строке cscript.exe myscript.vbs
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2010, 10:06
    #36660577
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подмена символов в текстовом файле
косяк...
Код: plaintext
1.
2.
    buf = Replace(buf, "Ю", "Я")
    buf = Replace(buf, "ю", "я")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2010, 10:17
    #36660602
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подмена символов в текстовом файле
а если закоментарить строку
Код: plaintext
chcp  1251
то вроде все нормально работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2010, 10:22
    #36660614
Youra Polishuk
Youra Polishuk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подмена символов в текстовом файле
А как параметр из командной строки обрабатывать?
Имя файла редактируемого через параметр передать в скрипт?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.06.2010, 10:51
    #36660683
.Михаил.
.Михаил.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подмена символов в текстовом файле
Youra Polishuk,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
If WScript.Arguments.Length =  0  Then
    Msgbox "Файл не задан"
Else
    nameFile = WScript.Arguments.Item( 0 )
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(nameFile) Then
        Set TextStream = fso.OpenTextFile(nameFile,  1 , ,  0 )
        buf = TextStream.ReadAll()
        TextStream.Close
        Set TextStream = fso.OpenTextFile(nameFile,  2 , ,  0 )
        buf = Replace(buf, "Ю", "Я")
        buf = Replace(buf, "ю", "я")
        TextStream.Write buf
        TextStream.Close
    Else
        Msgbox "Указанный файл не существует"
    End If
End If
запускать wscript.exe myscript.vbs C:\Temp\test.txt
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Подмена символов в текстовом файле / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2159707]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 51ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 236ms
total:  361ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]