当前位置：文江博客话题详情

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

发布于 2024-12-14 10:43:21 字数 184 浏览 3 评论 0原文

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

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

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

我如何从经典的 asp 和 vbscript 中创建一个 ascii 文件？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

我为君王 2024-12-21 10:43:21

您使用 FSO (FileSystemObject) 来使用 VBScript 处理文件。此 MSDN 页面，使用文件，向您展示如何创建和写入文件。

这是一个页面，其中包含在 ASP 页面中使用 VBScript 创建文本文件的示例。

回复收藏 0 原文

简单爱 2024-12-21 10:43:21

我猜，您需要像管理数据库一样管理文本文件。如果我是对的，您可以使用文本文件驱动程序。
您需要一个 schema.ini< /a> 用于数据构造配置的文件和现有文本文件 (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

My guess, you need to manage a text file like a database. If I'm right, you can do it using Text File Driver.
You need a schema.ini file for the data construct configuration and an existing text file (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 (maybe not certain but there are three columns per line with the above configuration.)

abcdefghijklmnopqrstu
123123451234567890

Things to do side of ASP are like classical database operations also.

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

回复收藏 0 原文

~没有更多了~