如何用vb读取文本文件中的某一行某一列的字符串，并复制后拷贝到另一文本，急！

Question

是否能用colum 和 line属性确定行列
但不知如何读取？

Answer 1

使用FSO，干脆我贴代码，讲起来太多了

Answer 2

'加载模板文件
 
注意需要在工程中引用 micrsoft scriping runtime 项目
  Dim wj As TextStream
   Dim file As New FileSystemObject
   Set wj = file.OpenTextFile(pt, , True)   'pt为打开TXT文件路竟
   '对变量进行全局复制
   Do While wj.AtEndOfLine = False
      ReadPostion wj.ReadLine    'readline 读取一行  (过程不要管）
   Loop
wj.Close
Set wj = Nothing
Set file = Nothing

Answer 3

读取行：
dim temp_xx as string
 Open App.Path & "\temp_id2.txt" For Input As #1
   Line Input #1, temp_xx
   Close #1
读取列：I don't know!
GuanZHu!

Answer 4

读取行，我会读
但是打个比方把：如果有人要求读取（x，y）上的字符，怎么办？
x代表行
y表示列

Answer 5

配合MID函数使用
先读行
然后将返回的字符用MID将列的内容读出

Answer 6

是否要运用光标的坐标来确特定（行，列）上的字符
然后再用read（number）读取此坐标点后面的字符
这种想法是否可行？
还有我不知道具体如何操作光标的位置，能不能用winapi实现？
若有源代码是最好的，万分感谢！
如需要的话我会给写源代码的大侠加分。

Answer 7

Dim wj As TextStream
   Dim file As New FileSystemObject
   Set wj = file.OpenTextFile(pt, , True)   'pt为打开TXT文件路竟
   for i=1 to 行的数量
       if i=行的数量 then     
           mid(ReadPostion wj.ReadLine,列的字符号位置,取出列的数量）                  'readline 读取一行  (过程不要管）
       end if
   next

Answer 8

Dim wj As TextStream
   Dim file As New FileSystemObject
   Set wj = file.OpenTextFile(pt, , True)   'pt为打开TXT文件路竟
   for i=1 to 行的数量
       if i=行的数量 then     
           mid(ReadPostion wj.ReadLine,列的字符号位置,取出列的数量）                  'readline 读取一行  (过程不要管）
       else
           wj.readline   '
       end if
   next
这段代码效率不高，自己改进

Answer 9

ccbl(XML我来了) :Thank you for your valuble advice!

Answer 10

添加模块，代码如下：Option ExplicitPublic Const EM_GETLINECOUNT = &HBA
Public Const EM_GETLINE = &HC4
Public Const EM_LINEINDEX = &HBB
Public Const EM_LINELENGTH = &HC1Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
添加一个窗口，并在窗口中添加如下控件：
textbox，command
Private Sub Command1_Click()
'其中的21即为要读取的行数
    Dim S As String, Length As Integer, pos As Long
    
    pos = SendMessage(Text1.hwnd, EM_LINEINDEX, 21, ByVal 0&)
    Length = SendMessage(Text1.hwnd, EM_LINELENGTH, pos, ByVal 0&)
    S = String(Length, Chr(0))
    RtlMoveMemory ByVal S, Length, 2
    SendMessage Text1.hwnd, EM_GETLINE, 21, ByVal S
    'S = Left(S, InStr(S, Chr(0)) - 1)
    
    MsgBox S, , "第21行"
End Sub上面的两个api你可以自己查看相关资料！
下面再给一个不用api的例子：
Function textboxgetline(txt As textbox, ByVal n As Long) As Variant
Dim s As String, pos As Long, pos2 As Long, lineindex As Long
textboxgetlind = Null
lineindex = 0
pos = 1
s = txt.Text
Do
    If lineindex = n Then
    pos2 = InStr(pos, s, vbCrLf)
        If pos2 > 0 Then
            textboxgetline = Mid(s, pos, pos2 - pos)
        Else
            textboxgetline = Mid(s, pos)
        End If
    Else
        pos = InStr(pos, s, vbCrLf)
        If pos > 0 Then pos = pos + 2 '跳过vbcrlf
        End If
lineindex = lineindex + 1
Loop Until pos = 0 '继续寻找vbcrlf，直到没有vbcrlf为止
End Function

Answer 11

Open file For Input As #1
n = 1
Do While EOF(1)
Line Input #1, strline(n)
n = n + 1
Loop
MsgBox Mid(strline(i), j, 1)   'i就是行数,j是列数

Answer 12

新建工程，在Form1上添加三个TextBox（名称分别为Text1、txtLineCount、TxtString，将Text1的Multi
Line属性置为True）、三个标签和一个命令按钮。为工程添加一个模块Moudle1，在其中写如下声明（其中
SendMessage函数的声明可以从VB的“API浏览器”中复制）： 消息常量名 消息值 wParam lParam 返回值 
EM_GETLINECOUNT &HBA 未用 未用 行数 
EM_GETLINE &HC4 要找的行号 存结果的字节串 结果字节串的字节数 Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long
Public Const EM_GETLINECOUNT=&HBA
Public Const EM_GETLINE=&HC4
在Form1的代码模块中写如下代码：
Private Sub Command1_Click()
Dim str(256) As Byte
str(1)=1 '最大允许存放256个字符
'获取总行数，结果显示在文本框txtLineCount中
txtlineCount=SendMessage(Text1.hwnd,EM_GETLINECOUNT,0,0)
'获取第3行的数据放在str中，转换为字符串后显示在文本框txtString中
SendMessage Text1.hwnd,EM_GETLINE,2,str(0)
txtString= StrConv(str,vbUnicode)
End Sub
之后，按F5运行程序，在多行文本框中随便键入几行文字，然后按下[确定]按钮，出现如图画面，说明程序正确统计出了总行数和第3行的文字。
两点补充说明：在调用SendMessage获取第N行字符串时，lParam需要说明为字节数组，在调用完成后，再将字节数组转换为字符串；另外，调用前必须在lParam的前两个字节指明允许存放的最大长度，其中第一个字节为低位，第二个字节为高位，本例将高位（即str(1)）置1．说明最大允许存放256个字符。

Answer 13

谢谢大家的热心帮助！
谢谢！
我昨天已经把一切查询、统计、导入到excel表等工作都搞定了
再次感谢热心的朋友们！

Answer 14

这里特别要感谢的是ccbl(XML我来了) 
其实根本不用鼠标定位的，只要用mid（）函数即可
不过后面的几位朋友也让我这个菜鸟学到了关于鼠标控制的一些方法，谢谢！