Извлечение текста ANSI в другой файл
Я скопировал код и не знаю, как он работает, но протестировал как макрос.
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFileTxt = objFSO.CreateTextFile("filename.txt", True, False)
ObjFileTxt.Write "ok"
Set objFSO = Nothing
1. Как изменить каталог в примере на %tmp%? (по умолчанию C:\Users\myuser\Documents)
2. Как добавить код ANSI? то есть (MZ ˙˙)
ObjFileTxt.Write "ĂäD»N§űGç„ 06߲ŕ7‰Vű"0ťÂ‹1'Ç U¶¤CÜf×qjćĽ"
У ansi есть код, который содержит "и" как написать в нем ObjFileTxt.Write
Я хочу, чтобы код ansi сохранялся в файле name.txt.
Ответы 2
Windows унаследует среду от процесса, который вызывает функцию, поэтому файл создается в C:\Users\myuser\Documents. Чтобы изменить каталог, вы можете указать полный путь для CreateTextFile(), например (CreateTextFile("C:\d\a\a.txt")), это создаст файл в указанном вами месте. Что касается вашего второго вопроса, вы спрашиваете, как печатать "и", верно? Есть два способа, один из которых - использовать "над", когда вы используете "ваш контент", ваш контент не оценивается, так что специальная инструкция \n будет выводиться как есть, но это не полностью соответствует вашим потребностям, поскольку ваш контент может содержать файлы '. Вместо этого вы можете использовать «\», это означает, что оставьте его в покое для специальных символов, поэтому «asdf \' asdadf» выведет «asdf ' asdadf». Именно поэтому я поставил "\" в CreateTextFile(), чтобы он выводился как "C:\d\a". Надеюсь это поможет
Set ObjFileTxt = objFSO.CreateTextFile("%tmp%\filename.txt", True, False), Ошибка времени выполнения '76' Путь не найден
Чтобы ответить на ваши вопросы:
- Как изменить каталог в примере на
%tmp%?
You can do it by using
.ExpandEnvironmentStringson a Shell object, like this:
Set wShell = CreateObject("WScript.Shell")
sTempPath = wShell.ExpandEnvironmentStrings("%TMP%")
- Как добавить код ANSI?
You have to correct the way you add a quote
"inside a string, by duplicating it, like this"":
ObjFileTxt.Write "AäD»N§uGç„ 06ß?r7‰Vu""0t‹1'Ç U¶¤CÜf×qjcL"
Ваш код будет выглядеть так:
Set wShell = CreateObject("WScript.Shell")
sTempPath = wShell.ExpandEnvironmentStrings("%TMP%")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFileTxt = objFSO.CreateTextFile(sTempPath & "\filename.txt", True, False)
ObjFileTxt.Write "AäD»N§uGç„ 06ß?r7‰Vu""0t‹1'Ç U¶¤CÜf×qjcL"
Set objFSO = Nothing
Если вы хотите затем преобразовать файл в ANSI, проверьте этот файл отвечать.
Надеюсь это поможет.
это работает, но кодировка utf-8 не ANSI, как сделать кодировку в ANSI?
@poszkodowany третий аргумент CreateTextFile() определяет логическое значение, которое определяет, создан ли файл с использованием ASCII False(по умолчанию) или Unicode True. Вы уже создаете файл как ASCII, поэтому не понимаете, о чем спрашиваете ?? Также помните, что ASCII и ANSI это разные вещи.
@poszkodowany Я не совсем понимаю, о чем ты спрашиваешь. Если вам нужно преобразовать текстовый файл в ANSI, я думаю, это то, что вам нужно: stackoverflow.com/questions/5182102/…
Если вы используете VBA, у вас будет другой тег для обозначения того, какая программа его размещает, превосходить, доступ и т. д. На данный момент повторно помечен как шш, пока вы не редактировать и не укажете.