Visualbasic代碼編輯器沒有這個(gè)功能,但可以用第三方的編輯軟件Emedit來實(shí)現(xiàn)這個(gè)功能。
創(chuàng)新互聯(lián)建站長期為數(shù)千家客戶提供的網(wǎng)站建設(shè)服務(wù),團(tuán)隊(duì)從業(yè)經(jīng)驗(yàn)10年,關(guān)注不同地域、不同群體,并針對(duì)不同對(duì)象提供差異化的產(chǎn)品和服務(wù);打造開放共贏平臺(tái),與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為瑞金企業(yè)提供專業(yè)的成都網(wǎng)站設(shè)計(jì)、網(wǎng)站制作、外貿(mào)營銷網(wǎng)站建設(shè),瑞金網(wǎng)站改版等技術(shù)服務(wù)。擁有10余年豐富建站經(jīng)驗(yàn)和眾多成功案例,為您定制開發(fā)。
1、用Emedit打開*.frm文件。
2、點(diǎn)工具,當(dāng)前配置屬性,然后勾選顯示行號(hào)即可。
假如一個(gè)表有好多個(gè)taget:
我們要拿Southern CN和KDC之間的Target的行數(shù)
思路:我們先拿Southern CN的行數(shù),然后拿KDC的行數(shù)
dt.Rows.
IndexOf(dt.Rows.Cast(Of System.Data.DataRow).
Where(Function(r) r(3).ToString.StartsWith("Target") And dt.Rows.IndexOf(r) iSCN And dt.Rows.IndexOf(r) iKDCRow).First()) + 1
你是想獲取總行數(shù)?還是選中行和列的索引?
獲取總行數(shù):dataGridView1.Rows.Count;
獲取當(dāng)前選中行索引:int
i
=
this.dataGridView1.CurrentRow.Index;
獲取當(dāng)前選中列索引:int
j
=
this.dataGridView1.CurrentCell.ColumnIndex;
如果文本很大,那用for、do就太慢太慢了,我給大家一個(gè)快速查詢的方法:
Dim Oc,Fs,S,X
Set Fs = Oc.OpenTextFile("C:\Test.Txt", 1)'用FSO打開TXT文件
S = Fs.ReadAll'獲取全文
Fs.Close'關(guān)閉文件
X = (Len(S) - Len(Replace(S, vbCrLf, ""))) / Len(vbCrLf) + 1 '統(tǒng)計(jì)總行數(shù):用字符串替換法得到一共多少個(gè)回車,然后再加一就得到總行數(shù)了
可以把某個(gè)列為空就當(dāng)做是空行,你連接字符串是hdr=no,也就是第一行不作為列標(biāo)題,那么就是用的默認(rèn)的列標(biāo)題,F(xiàn)1,F(xiàn)2.。。這些。
比如,第一列的某行為空的話就當(dāng)做是空行,你可以加這個(gè)條件 where len([F1]) 0
求行:
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è)字符的位置(總長度)的行來判斷唄,不過也得加一。