文字讀取

上一帖因為論壇掛點　不見哩..重發！
快速讀取Text內第X行文字內容

VB 內建指令的做法：

Private Sub Command1_Click()
    Label1 = Split(Text1, vbCrLf)(0)
    Label2 = Split(Text1, vbCrLf)(1)
    Label3 = Split(Text1, vbCrLf)(2)
End Sub

透過 API 的做法：

＜快速讀取 TextBox 第 N 行的資料＞：（Text1之MultiLine屬性請設為True）

Const EM_GETLINE = &HC4
Const EM_LINELENGTH = &HC1
Const EM_LINEINDEX = &HBB

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)

Sub TB_GetLine(ByVal hWnd As Long, ByVal whichLine As Long, Line As String)
    Dim length As Long, bArr() As Byte, bArr2() As Byte, lc As Long

    lc = SendMessage(hWnd, EM_LINEINDEX, whichLine, ByVal 0&)
    length = SendMessage(hWnd, EM_LINELENGTH, lc, ByVal 0&)
    If length > 0 Then
        ReDim bArr(length + 1) As Byte, bArr2(length - 1) As Byte
        Call RtlMoveMemory(bArr(0), length, 2)
        Call SendMessage(hWnd, EM_GETLINE, whichLine, bArr(0))
        Call RtlMoveMemory(bArr2(0), bArr(0), length)
        Line = StrConv(bArr2, vbUnicode)
    Else
        Line = ""
    End If
End Sub

Private Sub Command1_Click()
    Dim S As String
    Call TB_GetLine(Text1.hWnd, 5, S)
    ' 傳回值 S 即等於第 5 行的資料
    ' TextBox 的行次是從 0 起算。
    MsgBox S
End Sub

xxx55821

看一下....@@"

xxx55821

我ㄉ...智商跟知識沒到那...跨謀(=冏=)....(悶~

v0001123

文字讀取!!?是啥ㄋ~

0975482118

看看冰楓大 又給了什麼好康的   感謝你^^

angus0623

謝謝分享！參考看看～～～～～

dog123

不知道是如何讀取文字txt??

ken40810

讀取什麼文字?

a2318960

1# 冰楓   新的外掛?   我來看看囉~~~

a94351464325

什麼文字讀取 是你在txt寫東西 程式讀取嗎?