sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
sd sds sfgd sad adsw sda dahhsda ndfd4654815151
sds sfgd sad adsw sda 99151551515
sds sfgd sad adsw 9548481515
sfgd sad adsw 4544512185
sd sds sad sad adsw sda 000154546548
大家好，以上是一行行的資料，需要提取每行最后的資料，例如sd sds sfgd sad adsw sda dahhsda ndfd4654815151，需要提取出來的
是：ndfd4654815151 ，有每行字串里面，有包含7個空格的，6個空格的，5個空格的，4個空格的，3個空格的，所以請大神們，寫個代
碼或者excel函式，提取出字串。謝謝，
uj5u.com熱心網友回復：
給你一段代碼參考。VBA中也可以用的，語法完全相同。Private Sub Command1_Click()
Dim arrBuff() As String
Dim strText As String
strText = "sd sds sfgd sad adsw sda dahhsda ndfd4654815151"
arrBuff = Split(strText, " ")
' 關健點：Split( )函式的使用
' 大量文本，自己用回圈進行處理
' 如果源字串“最后面”有可能帶空格，那么就去掉尾部空格：
' arrBuff = Split(RTrim$(strText), " ")
MsgBox "最后一段：" & arrBuff(UBound(arrBuff())), 64
End Sub
uj5u.com熱心網友回復：
Private Sub Command1_Click()
Dim strline As String
Open "c:\test\test.txt" For Input As #1
Open "c:\test\new\test.txt" For Output As #2
Do Until EOF(1)
Line Input #1, strline
strline = Mid(strline, InStrRev(strline, " ") + 1)
Print #2, strline
Loop
Close #2
Close #1
End Sub
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
ndfd4654815151
99151551515
9548481515
4544512185
000154546548
uj5u.com熱心網友回復：
目測他的資料在excel里而不是文本檔案里。uj5u.com熱心網友回復：
其實核心內容就是 InStrRev 函式。其他都是浮云，換幾朵也無妨。uj5u.com熱心網友回復：
4樓瞎說，你的代碼是最繁瑣的，使用split函式才是王道，簡單明了，直接把每行字串 用空格 分隔 最陣列最下表標的那組資料，最簡單。uj5u.com熱心網友回復：
你知道函式底層是怎樣實作的嗎？所以，你真的是“瞎”說。uj5u.com熱心網友回復：
split只是代碼量少了，耗費的資源其實更多了。uj5u.com熱心網友回復：
如你所說，我確實不確定slipt函式是如何實作的，我也沒有特意去深入研究。
但是，
第一，我十分清晰的知道如何去構造這樣一個函式，最科學的辦法便是將資料載入記憶體，用指標尋找空格和換行符，找到滿足條件的記憶體資料后回傳指標。我相信微軟撰寫VB函式庫的工程師的C語言或匯編功力一定不會不如我，所以實作此功能的效率一定不會比這樣種方法更低。
第二，很明顯，提問者的編程能力是很菜的，你兜著圈子給他一堆文本讀寫的代碼，又是回圈，又是字串查找函式，又是末尾讀取，又是字串截取函式，繞過來繞過來去的，可能他連EOF是何意他都不明白，你覺得你的方法科學嗎？況且你的方法已經繞赤道跑了幾圈后轉回來的，完全是屬于脫了褲子放屁。
第三，instr或instrrec，mid，split這些函式，在實作方式上都應該是使用記憶體指標。而你的辦法使用多次的操作指標和讀寫硬碟緩沖區，并且這些操作在一個當型回圈體內。經過我這樣的分析，你覺得你的方法效率可以高到哪里去？
第四，無論是效率還是代碼的易讀性，采用split函式都是最佳解決方案。至于某些人說的split效率低，我想你們都應該看看自己寫的代碼到底有沒有可以改進的地方，比如減少回圈次數，或者接收split的陣列的資料型別是否定義的合理。
第五，我居然認真了，在一個所謂的精通"函式底層"的高手面前討論了一堆的指標，記憶體，緩沖區，真的是大言不慚了，鄙人慚愧啊。
uj5u.com熱心網友回復：
一個“蠢”字了得。uj5u.com熱心網友回復：
你寫一個看看，空說無憑。。。。。
uj5u.com熱心網友回復：
用正則運算式試試？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43631.html
標籤：VBA