У меня есть скрипт, который заменяет разделители в файле, предоставленном внешним источником.Скрипт работает как есть, но я бы хотел добавить возможность Выбрать файл с помощью диалогового окна и сохранить файл как что-то еще, используя диалоговое окно «Сохранить как» после выполнения замен.
Я пробовал несколько разных способов, найденных здесь и в документации MSDN, и поля открыты, однако данные не заменяются и файл не сохраняется.Возможно я не правильно формулирую свой поиск.В прошлом я не использовал диалоговые окна: (
Sub RosterDelimiters_FindReplace()
Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
FilePath = "C:\ReplaceText\Roster.txt"
TextFile = FreeFile
Open FilePath For Input As TextFile
FileContent = Input(LOF(TextFile), TextFile)
Close TextFile
FileContent = Replace(FileContent, ";+;", ",")
FileContent = Replace(FileContent, ";", ",")
TextFile = FreeFile
Open FilePath For Output As TextFile
Print #TextFile, FileContent
Close TextFile
End Sub
В псевдокоде предпочтительнее результирующие действия:
Sub
Dialog Box Opens
TextFile is selected
Replacements Run
Save As Box Opens
File is Named and Saved Wherever
End Sub