12
返回列表 上一主題 發帖

[發問] 是否有更適合字串的編輯修改呢？

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2012-6-19 07:13 | 只看該作者
回復 10# dechiuan999
  1. 'InStr 函數  傳回在某字串中一字串的最先出現位置，此位置為 Variant (Long)。
  2. Private Sub TextBox2_Change()
  3.     Dim xl As Integer, xText As String
  4.     xText = TextBox1   '字串=TextBox1
  5.     ComboBox1.Clear
  6.     Do While InStr(xText, TextBox2)
  7.         'While: 條件成立   執行回圈  ->  TextBox2字串在xText字串中最先出現位置 >1 => True成立,  0=>False 不成立
  8.         'Until: 條件不成立 執行回圈
  9.         ComboBox1.AddItem xl + 1
  10.         xl = xl + 1
  11.         xText = Mid(xText, InStr(xText, TextBox2) + Len(TextBox2))
  12.         '字串=剔除已出現位置的字元的字串  以避免無窮的迴圈
  13.         'InStr(xText, TextBox2) + Len(TextBox2) :最先出現位置+TextBox2的字元數
  14.     Loop
  15. End Sub
複製代碼

TOP

dechiuan999

帖子
231 
主題
55 
精華
0 
積分
293 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
KEELUNG 
註冊時間
2010-7-24 
最後登錄
2018-8-28 
12#
發表於 2012-6-19 09:24 | 只看該作者
回復 11# GBKEE


    版主大大早安：

小弟已領悟語法中
DO WHILE的變化了。
Sub aa()
    Dim mFlag As Boolean
    mFlag = True
    Do While mFlag
        MsgBox "現在測試中"
        mFlag = False
    Loop
End Sub

版主大大是利用
InStr(xText, TextBox2)及xText
的改變

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
12
返回列表 上一主題