Как сделать ASCII файл для бухгалтерского программного обеспечения с VBScript и ASP - PullRequest
Новая
       370

Как сделать ASCII файл для бухгалтерского программного обеспечения с VBScript и ASP

0 голосов
/ 10 ноября 2011

мне нужен файл ascii с несколькими строками для учета.

в каждой строке у меня будет текст и цифры, например числа и пробелы с определенной длиной для каждого столбца данных первый столбец длиной 3 символа второй 5 третий - 10 и т. д.

тогда мне нужен конец строки, заканчивающийся CR + LF

как мне сделать файл ascii из классического asp и vbscript?

Ответы [ 2 ]

1 голос
/ 10 ноября 2011

Вы используете FSO (FileSystemObject) для работы с файлами в VBScript.На этой странице MSDN Работа с файлами показано, как создавать и записывать файлы.

Вот страница , в которой есть образец, использующий VBScript на странице ASP.создать текстовый файл.

0 голосов
/ 10 ноября 2011

Полагаю, вам нужно управлять текстовым файлом, например, базой данных. Если я прав, вы можете сделать это, используя Драйвер текстового файла . Вам нужен файл schema.ini для конфигурации конструкции данных и существующий текстовый файл ( myfile.csv ). Schema.ini 

[myfile.csv]
Format=FixedLength
CharacterSet=ANSI
ColNameHeader=False
Col1=first Text Width 3
Col2=second Text Width 5
Col3=third Text Width 10

;[myotherfile.csv]
;Format=FixedLength
;CharacterSet=ANSI
; etc.

myfile.csv (возможно, не уверен, но в каждой строке с указанной конфигурацией три столбца.) 

abcdefghijklmnopqrstu
123123451234567890

То, что нужно сделать на стороне ASP, похоже на классические операции с базами данных. 

Const adLockReadOnly = 1
Dim adoCon, adoRS
Set adoCon = Server.CreateObject("Adodb.Connection")
adoCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath(".") & _ 
            ";Extended Properties=""text"""
    Set adoRS = Server.CreateObject("Adodb.Recordset")
    With adoRS
        .Open "Select * From [myfile.csv]", adoCon, , adLockReadOnly
        While Not .Eof
            Response.Write( _
            .Fields("first").Value & " - "& _
            .Fields("second").Value & " - "& _ 
            .Fields("third").Value & _ 
            "<br />")
            .MoveNext
        Wend
        .Close
    End With
    Set adoRS = Nothing
    'Data insert : new line ends with CR + LF automatically.
    adoCon.Execute "Insert Into [myfile.csv] Values('aaa','bbbbb','cccccccccc')"    
adoCon.Close
Set adoCon = Nothing
...