7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
用户 昵称 2003-03-19
- 打赏
- 举报
把文本文件读入一个文本框你会吧
向文本框发送EM_GETLINECOUNT返回文本的行数会吧
向文本框发送EM_GETLINE返回指定的行会吧（有多少行已经知道了）
现在已经是字符串了，怎么操作总该会了吧。
向文本框发送EM_GETLINECOUNT返回文本的行数会吧
向文本框发送EM_GETLINE返回指定的行会吧（有多少行已经知道了）
现在已经是字符串了，怎么操作总该会了吧。
思考 2003-03-19
- 打赏
- 举报
是指指定行列的的字符吗？很简单就能实现
northwolves 2003-03-19
- 打赏
- 举报
Function lines(txtpath As String, ByVal startline As Integer, linenum As Integer) As String 'txtpath 文件中从startline开始的linenum行内容。
lines = ""
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
If startline > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If startline <= UBound(x) Then
If startline + linenum <= UBound(x) Then
For i = startline To startline + linenum - 1
lines = lines & x(i) & " "
Next
Else
For i = startline To UBound(x)
lines = lines & x(i) & " "
Next
End If: End If
End Function
lines = ""
Dim filetxt As String, x As Variant, i As Integer
filetxt = String(FileLen(txtpath), " ")
Open txtpath For Binary As 1
Get #1, , filetxt
Close 1
x = Split(filetxt, vbCrLf)
If startline > UBound(x) Then MsgBox "行溢出", 64, "err!": Exit Function
If startline <= UBound(x) Then
If startline + linenum <= UBound(x) Then
For i = startline To startline + linenum - 1
lines = lines & x(i) & " "
Next
Else
For i = startline To UBound(x)
lines = lines & x(i) & " "
Next
End If: End If
End Function
