请问:如何用VB打开一个*txt文件,而且使打开后的文件中的光标处在指定行?

peiht 2008-03-09 05:32:01
我的程序中需要打开一个*txt文本文件,然后对文件中某行的内容进行手工修改。有时文件行数较多,查找需要修改的某行比较费力。因此,希望文件打开后,光标自动位于指定行的行首(最好该行同时位于顶端)。
我可以打开文件,但不知道如何控制光标位置。请各位专家指教,谢谢!
...全文
179 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
forbearORfolie 2008-03-11
写个查找的功能模块嘛,建议用richtextbox控件。
回复
peiht 2008-03-11
谢谢jennyvenus 和northwolves ,让我研究一下你们的代码.
回复
northwolves 2008-03-09
Shell "notepad.exe c:\1.txt", vbNormalFocus
SendKeys "{down 10}"
回复
Option Explicit

Const EM_LINESCROLL = &HB6
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Private Sub Command1_Click()
Dim s As String
Dim ss As String

Open "d:\1.txt" For Input As #1
Do
Line Input #1, s
ss = ss & s & vbCrLf
Loop While Not EOF(1)
Close #1

Text1.Text = ss

End Sub

Private Sub Command2_Click()
SendMessage Text1.hwnd, EM_LINESCROLL, 0, -100000 '弄到最前面
SendMessage Text1.hwnd, EM_LINESCROLL, 0, 200 '弄到200行

End Sub
回复
linescroll
回复
有个笨方法,打开文件后,模拟光标键向下,api也有,就是忘了。
回复
相关推荐
综教楼后的那个坑用双向链表实现 描述   在 LIT 综教楼后有一个深坑,关于这个坑的来历,有很多种不同的说法。其中一种说法是,在很多年以前,这个坑就已经在那里了。这种说法也被大多数人认可,这是因为该坑有一种特别的结构,想要人工建造是有相当困难的。   从横截面图来看,坑底成阶梯状,由从左至右的 1..N 个的平面构成(其中 1 ≤ N ≤ 100,000),如图:    *            * :    *            * :    *            * 8    *    **      * 7    *    **      * 6    *    **      * 5    *    ********* 4 <- 高度    *    ********* 3    ************** 2    ************** 1 平面 |  1  |2|   3    | 每个平面 i 可以用两个数字来描述,即它的宽度 Wi 和高度 Hi,其中 1 ≤ Wi ≤ 1,000、1 ≤ Hi ≤ 1,000,000,而这个坑最特别的地方在于坑底每个平面的高度都是不同的。每到夏天,雨水会把坑填满,而在其它的季节,则需要通过人工灌水的方式把坑填满。灌水点设在坑底位置最低的那个平面,每分钟灌水量为一个单位(即高度和宽度均为 1)。随着水位的增长,水自然会向其它平面扩散,当水将某平面覆盖且水高达到一个单位时,就认为该平面被水覆盖了。   请你计算每个平面被水覆盖的时间。    灌水 水满后自动扩散 | | * | * * | * * * * V * * V * * * * * * .... * *~~~~~~~~~~~~* * ** * *~~~~** : * *~~~~**~~~~~~* * ** * *~~~~** : * *~~~~**~~~~~~* * ** * *~~~~**~~~~~~* *~~~~**~~~~~~* * ********* *~~~~********* *~~~~********* *~~~~********* *~~~~********* *~~~~********* ************** ************** ************** ************** ************** **************    4 分钟后    26 分钟后        50 分钟后    平面 1 被水覆盖     平面 3 被水覆盖    平面 2 被水覆盖输入   输入的第一行是一个整数 N,表示平面的数量。从第二行开始的 N 行上分别有两个整数,分别表示平面的宽度和高度。 输出   输出每个平面被水覆盖的时间。
发帖
VB基础类
创建于2007-09-28

7490

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-09 05:32
社区公告
暂无公告