如何用vbscript和ASP制作会计软件ascii文件

Question

我需要有一个ascii文件，其中有几行会计。

在每一行中，我将有文本和数字，例如每列数据的特定长度的数字和空格，第一列是3字符长度，第二列是5，第三列是10，等等。

然后我需要行的末尾以CR + LF结束

如何从经典的asp和vbscript创建ascii文件？

Answer 1

您可以使用FSO (FileSystemObject)在VBScript中处理文件。此MSDN页Working with Files向您展示如何创建和写入文件。

下面是一个在page页面中使用VBScript创建文本文件的示例。

Answer 2

我猜，您需要像管理数据库一样管理文本文件。如果我是对的，你可以使用Text File Driver来完成。您需要一个用于数据构造配置的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