ADODB.Stream文本流的ReadText方法怎么按行读

Posted 2023-04-03

private void Form1_Load(object sender, EventArgs e)

int j=0;
label1.Text= FileRowText(@"c:\update.dat",2, ref j);


#region 获取文本某行数据
///
/// 获取文本文件某行数据
///
/// 文本文件路径
/// 第几行
/// 返回总行数
///
private string FileRowText(string filePath,int i, ref int j)


StreamReader sr = File.OpenText(filePath);
string str = "";
string text = "";
int num = 0;
while ((str = sr.ReadLine()) != null)

num++;
if (num == i)

text = str;


j = num;
sr.Close();
return text;

#endregion 参考技术A Khalifa Internat

vba adodb读取文本文件

参考技术A write2TextFile里的strbuf = .readtext，表示是读取文件内容，此时游标在所有文本后面，写入内容的话就变成追加。建议换行后再写新内容。
如果注释掉strbuf = .readtext，就从文件头开始写。如果新文本长度大于原内容长度，相当于实现覆盖的效果。否则会出现新文本原文本混合的情况。如果原文件文本是12345新内容是666，写完就是66645。似乎adodb.stream没有删除文本的功能，所以函数里直接删除文件再创建了。