问题:怎样从一个文本文件中读取一个特定行的从某个字符开始的长度已知的字符串?
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中?早上我自己写了一段,可以实现该功能,很简单,班门弄斧一回,请指教!
Dim a As Integer
a = 0
Dim string1 As String
Dim newline As String
Open "(此处为文件路径和文件名)" For Input As #1
Do While a < 50 '50代表要找的是第50行
Line Input #1, newline
a = a + 1
Loop
string1 = Mid(newline, 28, 9) '从第28个字符开始,长度为9的字符串
Text1.Text = string1 '将找出的字符串在text文本筐中显示出来该程序主要用了函数line input,a是一个记录变量,用于记录找了多少行。
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中?早上我自己写了一段,可以实现该功能,很简单,班门弄斧一回,请指教!
Dim a As Integer
a = 0
Dim string1 As String
Dim newline As String
Open "(此处为文件路径和文件名)" For Input As #1
Do While a < 50 '50代表要找的是第50行
Line Input #1, newline
a = a + 1
Loop
string1 = Mid(newline, 28, 9) '从第28个字符开始,长度为9的字符串
Text1.Text = string1 '将找出的字符串在text文本筐中显示出来该程序主要用了函数line input,a是一个记录变量,用于记录找了多少行。
解决方案 »
- vb 写的 ActiveX dll 如何才能被其它语言调用(delphi) ?
- 请研究bt的高手来帮忙
- 如何使用HtmlHelp API函数调用出的帮助没有导航栏(navigator)?
- 如果把选项按钮的值写入到数据库,两种值:是与否?在数据库中如何保存?请详细告之,谢谢!
- 菜鸟问题,一定给分
- imagelist控件中的圖像怎麼聯到 picture, image 控件上???
- 如何保证我的窗体跟别的窗体在一层呢?
- 那位大侠快救命,看看我定义的这个函数有什么问题,急死了!!!!!
- 这个GetPath错在哪里?
- 求助:怎么使设计的窗口随图片的形状而改变?
- vb6我在向窗体中添加DBGrid时出现:"该部件的许可证信息没有找到.在设计环境中,没有合适的许可证使用该功能"错误,是怎么回事?
- 急,删除表 程序有问题,高人指点
比如读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中?
比如你要读取一个文件中第三行从第四个字符开始长度为5的字符串到一个变量中。
你可以这样做:
先是打开文件,然后:
dim str as string
dim i as integer
do not Atendofstream then
i=i+1
if i=3 then str=readline
loop while i>3
再就是:mid(str,4,5)