包含vb.net識(shí)別文本行號(hào)的詞條

vb.net如何讀取txt文本的第三行，這個(gè)程序怎么寫？

我以前做過，現(xiàn)在手頭沒代碼和NET環(huán)境不便幫你調(diào)試。不過給你提供個(gè)vb6的代碼，語法修改下即可。Dim a As String, b As Integer, d As Integer

網(wǎng)站建設(shè)公司,為您提供網(wǎng)站建設(shè),網(wǎng)站制作,網(wǎng)頁設(shè)計(jì)及定制網(wǎng)站建設(shè)服務(wù),專注于企業(yè)網(wǎng)站設(shè)計(jì),高端網(wǎng)頁制作,對(duì)成都建筑動(dòng)畫等多個(gè)行業(yè)擁有豐富的網(wǎng)站建設(shè)經(jīng)驗(yàn)的網(wǎng)站建設(shè)公司。專業(yè)網(wǎng)站設(shè)計(jì),網(wǎng)站優(yōu)化推廣哪家好,專業(yè)seo優(yōu)化優(yōu)化,H5建站,響應(yīng)式網(wǎng)站。

a = ""

b = 0

c = InputBox("請(qǐng)輸入指定的行號(hào):", "輸入行號(hào)", 30)

Open "d:\a.txt" For Input As #1

Do While Not EOF(1)

a = Input$(1, #1)

If a = Chr(13) Then b = b + 1

If b = c Then

Line Input #1, a

Text1.Text = a

Exit Do

End If

Loop

Close

vb.net文件讀取txt

1、實(shí)現(xiàn)上傳按鈕方法代碼。

2、判斷圖片對(duì)象是否為空代碼。

3、取得數(shù)據(jù)庫字段 dt.Rows(0)("Pic")方法代碼。

4、字節(jié)數(shù)組轉(zhuǎn)換為Image類型方法代碼。

5、處理SQL中操作Image類型方法代碼。

6、實(shí)現(xiàn)的上傳結(jié)果。

VB.net怎么顯示RichTextBox的行數(shù)、列數(shù)和總行數(shù)啊？

求行：

RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1

這個(gè)代碼呢，我的理解呢，是獲取在selstart的地方的行數(shù)。一般來講selstart的地方都是光標(biāo)的地方，然后會(huì)給你返回line。不過返回的時(shí)候要自己加1。不是很懂這個(gè)語法，有懂得可以教我一下

以上是求行數(shù)。

求列：

For i = 0 To RichTextBox1.SelStart

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart - i) 0 Then Exit For

j = j + 1

Next i

這個(gè)for循環(huán)呢，講的是檢查這一行光標(biāo)前有多少個(gè)列，然后用J輸出列的個(gè)數(shù)。

因?yàn)閂B6.0沒有RichTextBox1.GetFirstCharIndexOfCurrentLine這種語法。所以就得自己模擬這個(gè)過程。

具體怎么檢查的呢，首先將 i 從0循環(huán)到光標(biāo)處，

如果 【光標(biāo)字符數(shù)】處的行數(shù) 減去 【光標(biāo)字符數(shù)減去 i 個(gè)字符數(shù)】處的行數(shù)小于0了，我寫了個(gè)不為零。但此時(shí)寫小于零就可以。那么代表著換行了，同時(shí)也代表著光標(biāo)到上一行之間有多少字。用j存儲(chǔ)循環(huán)次數(shù)，得出對(duì)應(yīng)列數(shù)。（我們中文習(xí)慣是叫第一列，但程序?qū)嶋H上是第零列，但在循環(huán)的時(shí)候就注意到并解決這個(gè)問題了）

如果你替換寫法，例如

If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart + i) 0 Then Exit For

j = j + 1

Next i

這個(gè) J 就對(duì)應(yīng)著光標(biāo)到該行結(jié)尾有幾個(gè)字符了，如果有需要可以使用，但一般不需要。

那么就像上面說的那樣，行列都求出來了，最后用事件和TEXT或者caption表現(xiàn)出來就好了

至于說總行數(shù)

RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1

通過對(duì)最后一個(gè)字符的位置（總長(zhǎng)度）的行來判斷唄，不過也得加一。

VB.NET中，如何獲得文本框中可見區(qū)域的首行的行號(hào)？

通過向文本框傳遞EM_LINEFROMCHAR消息可以得到光標(biāo)所在的行號(hào)：

contst

EM_LINEFROMCHAR

=

0xC9

Dim

I

as

Long

I

=

SendMessage(textBox1.Hwnd,

EM_LINEFROMCHAR,

-1,

0)

網(wǎng)頁題目：包含vb.net識(shí)別文本行號(hào)的詞條
轉(zhuǎn)載來源：http://m.jiaotiyi.com/article/ddciooi.html