LEADERSOFT.ru Разработка на заказ программ и сайтов
Форумы по информационным технологиям
 
Регистрация  |  Вход
left
Форумы Минимизировать
ПоискСписок форумов
  Программирование  Microsoft Access. Файлы mdb и accdb  Создание файла ...
 Создание файла для универсального входа
 
 22.08.2007 11:45:52
McAr
54 сообщения


Создание файла для универсального входа

Добрый день.

Задача: для втягивания платежей через клиент-банк необходимо создать текстовый файл для универсального входа банк-клиента. Стандартные опции создают файл с вертикальными разделителями, а необходимо без разделителей и с заголовком. 

Вопрос: как можно решить данную задачу?

Заранее признателен

 23.08.2007 8:56:52
Admin1
731 сообщения
1-ый


Re: Создание файла для универсального входа

Лучше использовать xml файл для загрузки и сохранения информации. Преимущества: можно редактировать текстовым редактором и к нему уже есть готовые библиотеки (не придется писать функции экспорта и импорта). Применение: достаточно установить ссылку в редакторе  VBA. Можно для усиления защиты некоторые поля (строку соединения с банком) зашифровать в шестнадцатеричном виде.

 

P.S. Функции зашифровки есть в коммерческих программах на сайте. Как выглядит зашифрованный текст в xml, можно посмотреть в программе Клиенты предприятия 2007.

 23.08.2007 10:50:56
McAr
54 сообщения


Re: Создание файла для универсального входа

Видимо я некорректно поставил вопрос. Как можно создать именно текстовый файл?

 23.08.2007 10:56:22
Admin1
731 сообщения
1-ый


[FAQ\Файлы] Создание файла Unicode
 Измененный Admin1  на 23.08.2007 11:00:56)

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

 

 23.08.2007 18:49:37
McAr
54 сообщения


Re: [FAQ\Файлы] Создание файла Unicode

Благодарствую - буду разбираться

  Программирование  Microsoft Access. Файлы mdb и accdb  Создание файла ...
ПоискПоиск  Список форумовСписок форумов  
right