Viz Trio 脚本(Script) 续篇-如何通过导入txt来自动生成串联单

Dim fso,res,objdialog
Dim m,n,i,l,ti,j,temp
Dim str
Dim saveaspage1, readpage1, readpage2, readpage3, readpage4, readpage5
readpage1="bt"
saveaspage1=50000
saveaspage2 = 60000
readpage2 = "biaoti"


Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
dim path
path = "c:\news.txt"
Set ti = fso.OpenTextFile(path,ForReading)

While not ti.AtEndOfStream
    str=ti.Readall

    MyArray = Split(str, chr(10)+chr(13), -1, 1)
    for i=0 to Ubound(MyArray)
        MyArray1 = Split(MyArray(i), chr(13), -1, 1)
        j=Ubound(MyArray1)
        if j=1 then
            Triocmd("page:read_template "+Cstr(readpage1))
            TrioCmd("page:set_property " & 1 & " " & Myarray1(0))
            TrioCmd("page:saveas " + Cstr(saveaspage1))
            saveaspage1 = saveaspage1 + 10
        elseif j=2 then
           Triocmd("page:read_template "+Cstr(readpage2))
            TrioCmd("page:set_property " & 1 & " " & Myarray1(1))
            TrioCmd("page:set_property " & 2 & " " & Myarray1(0))
            TrioCmd("page:saveas " + Cstr(saveaspage2))
            saveaspage2 = saveaspage2 + 10
        end if

    next

wend
ti.close
set fso=nothing

msgbox "ok"

上面是一段自动生成串联单的代码，你可以把放到自定义的脚本中，通过热键进行触发，怎么设置请看下面的步骤：

要测试上面的脚本，你需要具备：

1. 有套trio系统。

2. 有个模板，模板的可以可替换项命名为1和2，可替换项是指controltext的field identifier，保存模板，命名为biaoti。

3. 导入模板到tiro中。

4. 最后你要有个new.txt放在c盘根目录。

备注：Trio script支持标准的VBScript，有什么不懂的可以先google一下，百度一下可能找不到你想要的答案。