预览加载中，请您耐心等待几秒...

VS2010-VB环境读取TXT文件任意行.doc

预览
1/3
2/3
3/3

在线预览结束，喜欢就下载吧，查找使用更方便

下载提示 文本预览

如果您无法下载资料，请参考说明：

1、部分资料下载需要金币，请确保您的账户上有足够的金币

2、已购买过的文档，再次下载不重复扣费

3、资料包下载后请先用软件解压，在使用对应软件打开

(完整word版)VS2010_VB环境读取TXT文件任意行(完整word版)VS2010_VB环境读取TXT文件任意行(完整word版)VS2010_VB环境读取TXT文件任意行VS2010_VB环境读取TXT文件任意行应用实例步骤：1.使用VS2010建立一个空白的VB窗体工程:2。添加文本控件，如果需要多行显示注意勾选Multiline如图：3.完成后的窗口如图所示:4.建立Txt文档:5。添加原代码：6.运行效果：绝对路径的源代码：DimAllTextAsStringDima_CHT（)AsStringAllText=My。Computer.FileSystem.ReadAllText（”D:\提取行信息。txt")a_CHT=AllText。Split(vbCrLf)My.Computer。FileSystem。WriteAllText（"D:\提取行信息。txt”，Join(a_CHT，vbCrLf）,False）TextBox1.Text=Trim（a_CHT(CUInt（TextBox2。Text)-1））。Replace(vbLf，""）相对路径的源代码：DimAllTextAsStringDima_CHT(）AsStringAllText=My。Computer.FileSystem。ReadAllText（Application.StartupPath（)＆"\提取行信息。txt"）a_CHT=AllText。Split(vbCrLf）My。Computer。FileSystem.WriteAllText（Application。StartupPath（)&"\提取行信息.txt”，Join(a_CHT，vbCrLf），False）TextBox1.Text=Trim（a_CHT(CUInt(TextBox2.Text)-1)）.Replace（vbLf，””)PS:1.D:\提取行信息.txt—-你的文件存储路径；2a_CHT（CUInt(TextBox2.Text）—1）等同于a_CHT（需要的行数—1)