vba读取txt文件特定几行
@百闻690：vba readline方法读取txt怎么得到特定字符行号 -
阴虏13912973503…… var ForReading=1; var fso=new ActiveXObject(＂Scripting.FileSystemObject＂); var f=fso.OpenTextFile(＂d:\\temp.txt＂,ForReading); var arr=f.ReadAll().split(＂\r\n＂); alert(＂第3行数据为:＂+arr[2]);
@百闻690：如何用excel批量读取txt中固定行列的数据 -
阴虏13912973503…… 直接读取时不可能的了,你可以先按顺序导入到一个表格中作为你批量读取的数据库,然后给每一个txt数据区域命名(其实就相当于做了一个二维数组),再用 offset() ,match(),index(). 按你的第三行第四列的坐标读出放到你想要放置的地方即可!你还可以动态的指定坐标的 函数举例:=offset(命名1,3,4,),就是取区域(命名1)中第三行第四列的数据.说明白点就是一个数据的引用问题
@百闻690：vba 读取txt文件的第8行内容怎么写? -
阴虏13912973503…… Private Sub CommandButton1_Click() Dim filename, inputstring As String Dim i As Integer Dim data i = 1 filename = ＂d:\WYKS.txt＂ '本列TXT文件放在D盘中 Open filename For Input Access Read As #1 Do While Not EOF(1) Line Input #1, ...
@百闻690：如何用excel批量读取txt中固定行列的数据 -
阴虏13912973503…… '将如下宏代码粘贴到excel的VBA编辑器中,按F5运行即可,注意修改你的txt文件所在的目录.Sub ReadTxt() Dim Path As String, MyValue As String, fn As Long Path = ...
@百闻690：VBA,关于TXT文本信息的读取. -
阴虏13912973503…… Dim num As Integer Dim r As String Dim f As String '将f指定为你的文件的路径 f = ＂t.txt＂ num = FreeFile() Open f For Input As num While Not EOF(num) Line Input #num, r MsgBox (r) Wend
@百闻690：VB 如何读取 已经打开的一个TXT文件的某特定一行? -
阴虏13912973503…… Private Sub Form_click() Print ReadSomeLine(＂z:\1.txt＂, 3) End Sub Function ReadSomeLine(Str1 As String, LineN As Integer) Dim temp As String Dim a() As Variant, x As Integer Open Str1 For Input As #1 Do While Not EOF(1) Line Input #1, ...
@百闻690：VB如何读取文本文件.txt里的符合条件的行 -
阴虏13912973503…… 就这几步了1、打开文本文件 open filename for input as #12、line input #1,X '一次读一行3、读出来后,放在数组里,然后比较大小就行了 在读出一行时,可以用split函数,把每个值分割出来 split函数用法,可以百度查 这个代码很简单的,如果你不急,可以留下邮箱,帮你写写
@百闻690：如何用vb读入txt文件中的任意某一行的内容? -
阴虏13912973503…… Open ＂D:\123.txt＂ For Input As #1 While Not EOF(1) N = N + 1 Line Input #1, S If N = 3 Then Print S 'N=3 表示读取第3行 Wend Close #1
@百闻690：如何用vb读取txt文件,指定的某行 赋给字符串变量? -
阴虏13912973503…… '先在代码里加如下 Function Private Function GetTxt(TxtPath As String) As String Dim i As Integer: i = FreeFile Open TxtPath For Input As #i GetTxt = StrConv(InputB(LOF(i), i), vbUnicode) Close #i End Function'需要的时候: MsgBox Split(GetTxt(＂...
@百闻690：Vb里面怎么对一个TXT文件按行读取,并排除带有指定字符的行? -
阴虏13912973503…… '看代码 Dim AllStr As String Dim s As String Open filename For Input As #1 Do While Not EOF(1) DoEvents Line Input #1, s if isntr(1,s,＂特定字符＂)=0 then If AllStr = ＂＂ Then AllStr = s Else AllStr = AllStr & vbCrLf & s End If endif Loop Close #1
阴虏13912973503…… var ForReading=1; var fso=new ActiveXObject(＂Scripting.FileSystemObject＂); var f=fso.OpenTextFile(＂d:\\temp.txt＂,ForReading); var arr=f.ReadAll().split(＂\r\n＂); alert(＂第3行数据为:＂+arr[2]);
@百闻690：如何用excel批量读取txt中固定行列的数据 -
阴虏13912973503…… 直接读取时不可能的了,你可以先按顺序导入到一个表格中作为你批量读取的数据库,然后给每一个txt数据区域命名(其实就相当于做了一个二维数组),再用 offset() ,match(),index(). 按你的第三行第四列的坐标读出放到你想要放置的地方即可!你还可以动态的指定坐标的 函数举例:=offset(命名1,3,4,),就是取区域(命名1)中第三行第四列的数据.说明白点就是一个数据的引用问题
@百闻690：vba 读取txt文件的第8行内容怎么写? -
阴虏13912973503…… Private Sub CommandButton1_Click() Dim filename, inputstring As String Dim i As Integer Dim data i = 1 filename = ＂d:\WYKS.txt＂ '本列TXT文件放在D盘中 Open filename For Input Access Read As #1 Do While Not EOF(1) Line Input #1, ...
@百闻690：如何用excel批量读取txt中固定行列的数据 -
阴虏13912973503…… '将如下宏代码粘贴到excel的VBA编辑器中,按F5运行即可,注意修改你的txt文件所在的目录.Sub ReadTxt() Dim Path As String, MyValue As String, fn As Long Path = ...
@百闻690：VBA,关于TXT文本信息的读取. -
阴虏13912973503…… Dim num As Integer Dim r As String Dim f As String '将f指定为你的文件的路径 f = ＂t.txt＂ num = FreeFile() Open f For Input As num While Not EOF(num) Line Input #num, r MsgBox (r) Wend
@百闻690：VB 如何读取 已经打开的一个TXT文件的某特定一行? -
阴虏13912973503…… Private Sub Form_click() Print ReadSomeLine(＂z:\1.txt＂, 3) End Sub Function ReadSomeLine(Str1 As String, LineN As Integer) Dim temp As String Dim a() As Variant, x As Integer Open Str1 For Input As #1 Do While Not EOF(1) Line Input #1, ...
@百闻690：VB如何读取文本文件.txt里的符合条件的行 -
阴虏13912973503…… 就这几步了1、打开文本文件 open filename for input as #12、line input #1,X '一次读一行3、读出来后,放在数组里,然后比较大小就行了 在读出一行时,可以用split函数,把每个值分割出来 split函数用法,可以百度查 这个代码很简单的,如果你不急,可以留下邮箱,帮你写写
@百闻690：如何用vb读入txt文件中的任意某一行的内容? -
阴虏13912973503…… Open ＂D:\123.txt＂ For Input As #1 While Not EOF(1) N = N + 1 Line Input #1, S If N = 3 Then Print S 'N=3 表示读取第3行 Wend Close #1
@百闻690：如何用vb读取txt文件,指定的某行 赋给字符串变量? -
阴虏13912973503…… '先在代码里加如下 Function Private Function GetTxt(TxtPath As String) As String Dim i As Integer: i = FreeFile Open TxtPath For Input As #i GetTxt = StrConv(InputB(LOF(i), i), vbUnicode) Close #i End Function'需要的时候: MsgBox Split(GetTxt(＂...
@百闻690：Vb里面怎么对一个TXT文件按行读取,并排除带有指定字符的行? -
阴虏13912973503…… '看代码 Dim AllStr As String Dim s As String Open filename For Input As #1 Do While Not EOF(1) DoEvents Line Input #1, s if isntr(1,s,＂特定字符＂)=0 then If AllStr = ＂＂ Then AllStr = s Else AllStr = AllStr & vbCrLf & s End If endif Loop Close #1
