VB 文本输出行号 I++
各位,VB6.0 学习新手我想问下:
VB的文本输出里面,多行输出的问题,行号怎样累加起来
比如: Dim NumRows As Integer '定义行号
NumRows=1 '赋初值为1
Print #1, "N" & NumRows++ &"其余的量" ’怎样使行号自动累加? #1为输出文件路径
比如需要输出文件为:
N1 (CALL 9911)
N2 M18M28
N3 G90 G00 Z146
N4 F4000
N5 G91 G00 X0.00 Y0.00
N6 M37
N7 G04K100
N8 (CALL 9901)
N9 G91 G01 U523.00
N10 (CALL 9900)
N11 G91 G00 X-35.00 Y0.00
N12 (CALL 9942)
N13 G91 G00 Z-10
N14 M38
..................
怎样使行号1-14自动累加输出?
VC里面直接用NumRows++ 即可
VB怎样实现该功能?
不想在VB里 每输出一行后 每次对NumRows加1
Print #1, "N" & NumRows &"其余的量"
NumRows=NumRows+1
Print #1, "N" & NumRows &"其余的量"
NumRows=NumRows+1
Print #1, "N" & NumRows &"其余的量"
NumRows=NumRows+1
Print #1, "N" & NumRows &"其余的量"
NumRows=NumRows+1
............................
[解决办法]
可以做个function
function selfAdd(byref v as integer) as integer
selfadd = v
v = v + 1
end function
调用时:
Print #1, "N" & selfadd(NumRows) &"其余的量"