On Error Resume Next
set fso=CreateObject("scripting.filesystemobject")
Set file=fso.OpenTextFile("c:\we.txt")
Set wi=fso.CreateTextFile("c:\SCText.data")
i=1
msgbox "开始"
wi.WriteLine" [SCText]"
wi.WriteLine "0=Rt△:准备开始对话。按空格键开始。"
While not file.AtEndOfStream
s=file.ReadLine
If s<>"" Then
s=i&"="&s
Else
s=i&"="&file.ReadLine
End If
i=i+1
wi.WriteLine s
Wend
wi.WriteLine "[T]"
wi.WriteLine "T=60"
wi.WriteLine "[Build]"
wi.WriteLine "Build=2007-04-09更新"
wi.WriteLine "[TextNumber]"
wi.WriteLine "TextNumber=2150"
wi.Close
msgbox "完成"