vb6.0，我从txt文本文件中【utf-8】编码，读出数据后，在text1.text中显示，为什么显示乱码？
更新日期：2024.05.16
跟你text1.text设置的语言有关系，你文本中保存的阿拉伯语，那么text1.text设置的语言也要是阿拉伯语
19275442549 :Vb6.0关于txt的读出
贺狠岭4602 :答：【调用】Private Sub Command1_Click()Text1.Text = lzReadFile("D:\1.txt")End Sub 【函数】读文件函数 '--- '--参数：文件名(路径+名称)'--返回值：文件内容 '--- Public Function lzReadFile(ByVal strFileName As String) As String '文件句柄（文件号）Dim nFileNum As Long '存...
19275442549 :VB6.0读取TXT内容
贺狠岭4602 :答：TXT指什么？是文本文件还是文本框？文本文件：Option Explicit Private Sub Command1_Click()Dim SZtxt() As String Dim d() As String Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1...
19275442549 :VB6.0如何读取TXT中的数据并求和
贺狠岭4602 :答：Private Sub Command1_Click()MsgBox "第一个文本框内容" & Text1.Text & "，第二个文本框内容" & Text2.Text & "第三个文本框内容" & Text3.Text & 总和 Text1.Text + Text2.Text + Text3.Text & "。"End Sub 读取文件的话，用下面的代码：Private Sub Command1_Click()Dim txt1...
19275442549 :vb6.0 读取文本文件帮助
贺狠岭4602 :答：文件指针是顺序读取的。无法指定到某一行。假设要读取第50行的文本。方法1：读取所有文本到字串，然后Split转成行数组。Function readline(txtpath As String, linenum As Integer) As String Dim filetxt As String, x As Variant, i As Integer...
19275442549 :VB6.0 读取文本每行内容,处理后写入另一文本?
贺狠岭4602 :答：C:\Path\To\Output\File\b.txt"' 打开输入文件intInputFile = FreeFileOpen strInputFilePath For Input As #intInputFile' 创建输出文件intOutputFile = FreeFileOpen strOutputFilePath For Output As #intOutputFile' 逐行读取输入文件内容Do While Not EOF(intInputFile)Line Input #intInputFile...
19275442549 :用vb6.0在指定txt文件中提取记录并绘图
贺狠岭4602 :答：手边没有VB6，大致思路是：定义坐标平面，提取数据，画点，连线 form1.width=5000 form1.height=5000 form1.scale (-10,40)-(40,-10)form1.autoredraw=true '提取数据到数组in( , )，因为不知道你的外部文件是怎样储存的，所以不写 line (0,40)-(0,-10)line (-10,0)-(40,0)form1....
19275442549 :VB6.0中怎样调用"txt"和".xls"
贺狠岭4602 :答：首先，命令按钮只有单击事件，无法双击。★打开txt文件可以调用“记事本”，这个比较容易，可以使用以下代码。Private Sub Command_Click()Shell "notepad.exe C:\1.txt", vbNormalFocus '把其中的 C:\1.txt 改成你需要的路径 End Sub ★要打开xls文件就必须有OFFICE。使用下面代码可以调用Excel打开xls...
19275442549 :vb6.0如何读取txt文件最后一行数据
贺狠岭4602 :答：假设你这个TXT文件名是a.txt,在D盘。dim Str as string Open "D:\a.txt" For Input As #1 Do Until EOF(1)Line Input #1,Str '读出一整行 if left(Str,1)="2" then msgbox "找到一行啦，其结果是=" & Str '判断左边是否是2，是就显示 Loop Close #1 更详细的还可以参考我的以下...
19275442549 :VB6.0 读取本地1.TXT 把1.TXT第一行的值给TEXT1,把1.TXT第二行的值给T...
贺狠岭4602 :答：建立一个窗体，上面放3个文本框，分别叫text1、text2、text3，放一个按钮叫Command1。1.txt文件放在程序当前目录 Private Sub Command1_Click()Dim b As String Open App.Path & "\1.txt" For Input As #1 Line Input #1, b Text1.Text = b Line Input #1, b Text2.Text = b Line ...
19275442549 :在VB6.0中读取txt文件内容出现的问题 一下是我的程序,请帮忙指点一下...
贺狠岭4602 :答：Line Input #1, Wenti Line Input #1, oDaA Line Input #1, oDaB Line Input #1, oDaC Line Input #1, oDaD 改为 Do Line Input #1, Wenti Loop While Wenti = ""Do Line Input #1, oDaA Loop While oDaA = ""Do Line Input #1, oDaB Loop While oDaB = ""Do Line Input #1,...
贺狠岭4602 :答：【调用】Private Sub Command1_Click()Text1.Text = lzReadFile("D:\1.txt")End Sub 【函数】读文件函数 '--- '--参数：文件名(路径+名称)'--返回值：文件内容 '--- Public Function lzReadFile(ByVal strFileName As String) As String '文件句柄（文件号）Dim nFileNum As Long '存...
贺狠岭4602 :答：TXT指什么？是文本文件还是文本框？文本文件：Option Explicit Private Sub Command1_Click()Dim SZtxt() As String Dim d() As String Dim n As Integer Dim LinStr As String Dim i As Integer n = 0 Open "c:\1122.txt" For Input As #1 '以读的方式打开文件 Do While Not EOF(1...
贺狠岭4602 :答：Private Sub Command1_Click()MsgBox "第一个文本框内容" & Text1.Text & "，第二个文本框内容" & Text2.Text & "第三个文本框内容" & Text3.Text & 总和 Text1.Text + Text2.Text + Text3.Text & "。"End Sub 读取文件的话，用下面的代码：Private Sub Command1_Click()Dim txt1...
贺狠岭4602 :答：文件指针是顺序读取的。无法指定到某一行。假设要读取第50行的文本。方法1：读取所有文本到字串，然后Split转成行数组。Function readline(txtpath As String, linenum As Integer) As String Dim filetxt As String, x As Variant, i As Integer...
贺狠岭4602 :答：C:\Path\To\Output\File\b.txt"' 打开输入文件intInputFile = FreeFileOpen strInputFilePath For Input As #intInputFile' 创建输出文件intOutputFile = FreeFileOpen strOutputFilePath For Output As #intOutputFile' 逐行读取输入文件内容Do While Not EOF(intInputFile)Line Input #intInputFile...
贺狠岭4602 :答：手边没有VB6，大致思路是：定义坐标平面，提取数据，画点，连线 form1.width=5000 form1.height=5000 form1.scale (-10,40)-(40,-10)form1.autoredraw=true '提取数据到数组in( , )，因为不知道你的外部文件是怎样储存的，所以不写 line (0,40)-(0,-10)line (-10,0)-(40,0)form1....
贺狠岭4602 :答：首先，命令按钮只有单击事件，无法双击。★打开txt文件可以调用“记事本”，这个比较容易，可以使用以下代码。Private Sub Command_Click()Shell "notepad.exe C:\1.txt", vbNormalFocus '把其中的 C:\1.txt 改成你需要的路径 End Sub ★要打开xls文件就必须有OFFICE。使用下面代码可以调用Excel打开xls...
贺狠岭4602 :答：假设你这个TXT文件名是a.txt,在D盘。dim Str as string Open "D:\a.txt" For Input As #1 Do Until EOF(1)Line Input #1,Str '读出一整行 if left(Str,1)="2" then msgbox "找到一行啦，其结果是=" & Str '判断左边是否是2，是就显示 Loop Close #1 更详细的还可以参考我的以下...
贺狠岭4602 :答：建立一个窗体，上面放3个文本框，分别叫text1、text2、text3，放一个按钮叫Command1。1.txt文件放在程序当前目录 Private Sub Command1_Click()Dim b As String Open App.Path & "\1.txt" For Input As #1 Line Input #1, b Text1.Text = b Line Input #1, b Text2.Text = b Line ...
贺狠岭4602 :答：Line Input #1, Wenti Line Input #1, oDaA Line Input #1, oDaB Line Input #1, oDaC Line Input #1, oDaD 改为 Do Line Input #1, Wenti Loop While Wenti = ""Do Line Input #1, oDaA Loop While oDaA = ""Do Line Input #1, oDaB Loop While oDaB = ""Do Line Input #1,...
