如何获取某一行的文字

由于网吧的电脑上没有VB,所以用记事本写了一个VBSCRIPT程序.运行无误
你只需在VB中画一个按钮.命名为command1,一个文本框,命名为textbox1,我的VBS程序中的命名应该和VB中的默认命名是一样的.
将Command1_onclick()中的代码拷入VB中按钮的click事件中
注意将vbs中的textbox1.value改为textbox1.text

希望对你有所帮助
<script language=vbscript>
sub Command1_onclick()
dim strT,intN,intM,intX
intN=inpuTbox("请输入你要获取哪一行文本?" & vbcr & _
"我将不作错误检查","输入",1)
if intN<1 then msgbox "输入的行数不合法",vbcritical,"错误" : exit sub
intN=cint(intN)
strT=TextBox1.value
if strT="" then msgbox "文本框中没有文本",vbcritical,"错误" : exit sub
if right(strT,1)<>vbcr then strT=strT & vbcr
for intX=1 TO intN-1
intM=instr(strT,vbcr)
strT=mid(strT,intM+1)
next
intM=instr(strT,vbcr)

if intM<1 then
msgbox "输入的行大于实际行数",vbinformation,"错误"
else
msgbox "第" & intN & "行文本是:" & mid(strT,1,intM-1)