Question

VB语句条件语句的追加。请高手指点。

VB语句：Dim fs,f,s
Set fs=Createobject("Scripting.FileSystemobject")

Set f=fs,OpenTextFile("tmp4",ForReading，Tristatefalse)
s =f,Readline
value=s
f,colse
以上的能自行导出几行数字。可不可以加条件语句
例如：如果tmp4是的数字为12345678-2，那么 S导致出的是12345678-2， 如果了有tmp4中的数字为12345678的时候，导致S值的数字也要为12345678-2.这样的可不可以实现，怎么去改上面的程序句。请高手指点！！！

Answer 1

Dim  fs,f,s
Set fs=Createobject("Scripting.FileSystemobject")
Set f=fs,OpenTextFile("tmp4",ForReading，Tristatefalse)
s =f,Readline 
arr=split(s,"-")
if ubound(arr)=0 then s=s & "-2" 
value=s 
f,colse