VBSCRIPT以ASCLL格式写文本文件问题

aishifu1

'*******************************************************************************
                                   '脚本生成卡文件函数 ScriptEnd
                                   '功能: 输入一个卡号或者帐号生成一个卡文件
                                   '输入: 卡号
                                   '输出: NULL
                                   '*******************************************************************************
                      Public Sub CreateBin(ByVal CardNum As String)
                                    If CardNum = "" Then
                                                Exit Sub
                                    End If
                                       Dim a As Integer
                                    Open "C:\tar\mccard.bin" For Binary Access Write As #11
                                    Dim cardbin(241) As Byte
                                    Dim i As Integer
                                    cardbin(0) = &H78
                                    For i = 1 To Len(CardNum)
                                        cardbin(i) = Asc((Right(Left(CardNum, i), 1)))
                                    Next i
                                    For i = Len(CardNum) + 1 To 240
                                        cardbin(i) = 0
                                    Next i
                                           cardbin(121) = &H78
                                    Put #11, , cardbin
                                    Close #11
                                  End Sub
  
这是我用VB写的。VBSCRIPT好象没Open 这玩意，不知道高手有什么解决方案

aishifu1

尝试用VB写ACTIVEX DLL，然后用VBSCRIPT调用，不知道此方法是否可行。

hiyizhiyu

VBS可以用ASCII格式打开文件,也可以用ASCII格式写文件
应该可以实现LZ需求啊

wyscorpion

你去查下OpenTextFile这个函数就知道怎么用了．．．

aishifu1

这个问题已经解决，VBSCRIPT没有发现解决办法。可以使用C写个操作的函数，打成dll,然后让在系统盘system32下，通过Declare引用这个函数。

danmy

OpenTextFile 有个参数用来知名asc还是bin的

aishifu1

OpenTextFile 试过
不行，换行的地方会出国个3A的字符