vb读取文件内容，为什么最前面的是乱码
更新日期：2024.05.16
你将txt另存为其他编码试试，乱码有可能是文档的编码造成的，比如无BOM的UTF8和有BOM的UTF8
用记事本重新编辑一下你的txt文件，把前面的空格都删除掉。然后另存为文件，编码选择ANSI。
15211463556 :vb读取文本中的第n行字
荀卢欧3304 :答：for i =1 to 200 line input #1,temp_str next 1,打开的文件号,temp_str 是你要的字符串 快速... 多快算快啊 不用循环... 除非你的文件非常规整,每一行的长度都是一样的或有规律可循,就是如果你知道第N行起始的字节数,那么就可以用 seek ,将文件指针直接跳到你读取行的第一个字节数,...
15211463556 :vb 读取txt文件内容
荀卢欧3304 :答：''该函数传回原文件中指定区域的字符串。''PathFile 字符串，文件的实际路径全名。''Fore、Back 字符串，可选。开始位置后；结束位置前。''如果省略 Fore 和 Back 则返回所有原始字符串；''如果 Fore 不空，Back 空，返回开始之后的内容；''如果 Back 不空，Fore 空，返回结束之前的内容；''如果...
15211463556 :vb读取文本文件某行的内容
荀卢欧3304 :答：VB可以使用二进制方式打开文本文件，以Get 语句读到字节数组，再使用StrConv 函数将其转换为字符串，而后使用Split函数文本的字符串数组及总句数，使用InputBox 函数来输入需要读某行文本。Get 语句 将一个已打开的磁盘文件读入一个变量之中。StrConv 函数 返回按指定类型转换的 Variant (String)。Split...
15211463556 :怎样用VB按顺序读取指定文件夹里面的文本文件内容
荀卢欧3304 :答：'循环所有的文件名，从1到100，这里的100是文件夹中最大的文件 For i = 1 To 100 '打开第i个文件 Open CurPath & "/" & i & ".txt" For Input As #1 Do While Not EOF(1)Input #1, b str = str & b & vbNewLine ‘读取txt每一行中的内容，并将内容放到变量str中，并加上换行...
15211463556 :vb中如何读取文本文件
荀卢欧3304 :答：vbUnicode) Debug.Print strData Close intFile End Sub 运行代码读取文件 按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。关键代码说明 intFile = FreeFile： 获取一个文件句柄 Open strFile For Input As intFile...
15211463556 :vb读取TXT文件问题
荀卢欧3304 :答：你的 first_row确实没有定义 你可以删除你的代码中的第一句 Option Explicit 或者不去定义
15211463556 :vb编程,我想将打开的TXT文档的光标回到最前
荀卢欧3304 :答：不知道你是不是在文本框里打开的文档，如果是，代码如下：Private Sub Command1_Click()Text1.SetFocus SendKeys "^{End}"End Sub
15211463556 :vb中怎么读取excel文件?
荀卢欧3304 :答：1、调用Excel对象打开EXCEL文件后，读取文件内容\x0d\x0a***\x0d\x0a在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。\x0d\x0a \x0d\x0a因为...
15211463556 :VB 怎么读取TXT数据 第一行显示在TEXT1 第二行显示在TEXT2
荀卢欧3304 :答：Dim fso As New FileSystemObject Private Sub Form_Load()Text1.Text = ""Text2.Text = ""If fso.FileExists("c:\abc.txt") Then '判断文件是否存在 Dim sum_row As Integer sum_row = 1 Open "c:\abc.txt" For Input As #7 Line Input #7, first_row '按行读取 Text1.Text...
15211463556 :请问在 vb.net 中如何读取一个文件的前几个字节?
荀卢欧3304 :答：Dim fs As New System.IO.FileStream("D:\1.txt", IO.FileMode.Open, IO.FileAccess.Read) Dim buffer(3) As Char Dim re As New System.IO.BinaryReader(fs) re.Read(buffer, 0, 4)'表示从0位开始读4位 MsgBox(buffer)...
用记事本重新编辑一下你的txt文件，把前面的空格都删除掉。然后另存为文件，编码选择ANSI。
荀卢欧3304 :答：for i =1 to 200 line input #1,temp_str next 1,打开的文件号,temp_str 是你要的字符串 快速... 多快算快啊 不用循环... 除非你的文件非常规整,每一行的长度都是一样的或有规律可循,就是如果你知道第N行起始的字节数,那么就可以用 seek ,将文件指针直接跳到你读取行的第一个字节数,...
荀卢欧3304 :答：''该函数传回原文件中指定区域的字符串。''PathFile 字符串，文件的实际路径全名。''Fore、Back 字符串，可选。开始位置后；结束位置前。''如果省略 Fore 和 Back 则返回所有原始字符串；''如果 Fore 不空，Back 空，返回开始之后的内容；''如果 Back 不空，Fore 空，返回结束之前的内容；''如果...
荀卢欧3304 :答：VB可以使用二进制方式打开文本文件，以Get 语句读到字节数组，再使用StrConv 函数将其转换为字符串，而后使用Split函数文本的字符串数组及总句数，使用InputBox 函数来输入需要读某行文本。Get 语句 将一个已打开的磁盘文件读入一个变量之中。StrConv 函数 返回按指定类型转换的 Variant (String)。Split...
荀卢欧3304 :答：'循环所有的文件名，从1到100，这里的100是文件夹中最大的文件 For i = 1 To 100 '打开第i个文件 Open CurPath & "/" & i & ".txt" For Input As #1 Do While Not EOF(1)Input #1, b str = str & b & vbNewLine ‘读取txt每一行中的内容，并将内容放到变量str中，并加上换行...
荀卢欧3304 :答：vbUnicode) Debug.Print strData Close intFile End Sub 运行代码读取文件 按F8开始单步调试代码，点击Command1，进入单步调试功能，多次按下F8或直接按下F5运行完成，就完成了读取文本文件内容并输出到立即窗口。关键代码说明 intFile = FreeFile： 获取一个文件句柄 Open strFile For Input As intFile...
荀卢欧3304 :答：你的 first_row确实没有定义 你可以删除你的代码中的第一句 Option Explicit 或者不去定义
荀卢欧3304 :答：不知道你是不是在文本框里打开的文档，如果是，代码如下：Private Sub Command1_Click()Text1.SetFocus SendKeys "^{End}"End Sub
荀卢欧3304 :答：1、调用Excel对象打开EXCEL文件后，读取文件内容\x0d\x0a***\x0d\x0a在VB中要想调用Excel，需要打开VB编程环境“工程”菜单中的“引用”项目，并选取项目中的“MicrosoftExcel 11.0 object library”项。由于你的Excel版本不同，所以这个选项的版本号也是不同的。\x0d\x0a \x0d\x0a因为...
荀卢欧3304 :答：Dim fso As New FileSystemObject Private Sub Form_Load()Text1.Text = ""Text2.Text = ""If fso.FileExists("c:\abc.txt") Then '判断文件是否存在 Dim sum_row As Integer sum_row = 1 Open "c:\abc.txt" For Input As #7 Line Input #7, first_row '按行读取 Text1.Text...
荀卢欧3304 :答：Dim fs As New System.IO.FileStream("D:\1.txt", IO.FileMode.Open, IO.FileAccess.Read) Dim buffer(3) As Char Dim re As New System.IO.BinaryReader(fs) re.Read(buffer, 0, 4)'表示从0位开始读4位 MsgBox(buffer)...
