Добрый день.
Задача: для втягивания платежей через клиент-банк необходимо создать текстовый файл для универсального входа банк-клиента. Стандартные опции создают файл с вертикальными разделителями, а необходимо без разделителей и с заголовком.
Вопрос: как можно решить данную задачу?
Заранее признателен
Лучше использовать xml файл для загрузки и сохранения информации. Преимущества: можно редактировать текстовым редактором и к нему уже есть готовые библиотеки (не придется писать функции экспорта и импорта). Применение: достаточно установить ссылку в редакторе VBA. Можно для усиления защиты некоторые поля (строку соединения с банком) зашифровать в шестнадцатеричном виде.
P.S. Функции зашифровки есть в коммерческих программах на сайте. Как выглядит зашифрованный текст в xml, можно посмотреть в программе Клиенты предприятия 2007.
Видимо я некорректно поставил вопрос. Как можно создать именно текстовый файл?
Public Function fcOpenTextFile(FileName As String) As Boolean On Error GoTo 999 ' Открытие файла Unicode Const ForReading = 1 Const ForWriting = 2 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, fileOut Set fs = CreateObject("Scripting.FileSystemObject") ' Проверка файла If fs.FileExists(FileName) = False Then Set fileOut = fs.CreateTextFile(FileName, True) fileOut.Close End If ' Создание файла в Unicode Set f = fs.GetFile(FileName) Set fileOut = f.OpenAsTextStream(ForWriting, TristateTrue) ' Do While Not ts.AtEndOfStream ' buf = fileOut.readline ' Loop ' fileOut.Close Exit Function 999: MsgBox Err.Description End Function
Благодарствую - буду разбираться