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

Question

我需要一个ascii文件，其中有几行用于记帐。

在每一行中，我将为每列数据提供具有特定长度的示例数字和空格的文本和数字 第一列是3个字符长度 第二是5 第三是10等......

然后我需要以CR + LF

结束该行的结尾

如何从经典asp和vbscript中执行ascii文件？

Answer 1

使用FSO（FileSystemObject）处理VBScript中的文件。此MSDN页面Working with Files向您展示如何创建和写入文件。

这是一个page，其中包含一个使用ASP页面中的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