VFP 愛用者社區

[wing]

請教各方高手:
付上下列 * 搜查代碼 和 * 色標 搜查結果代碼
在英文文件內, 搜查英文字串, 是可以色標搜查结果的. 没有問題的.
但在中文文件內, 搜查和色標中文字串, 就死了.

如何改, 才可 搜查和色標中文 呢 ?

* 搜查代碼
IF EMPTY(ThisForm.Text1.Value)
RETURN
ENDIF
LOCAL cFind as String
cFind = ALLTRIM(ThisForm.Text1.Value)
LOCAL bb as Double
bb = ThisForm.oleDetails.Find(cFind,0, -1)
IF bb >-1
ThisForm.nStart = bb+1
WAIT WINDOW "FOUND" TIMEOUT 1
ENDIF


* 色標 搜查結果代碼
IF EMPTY(ThisForm.Text1.Value)
RETURN
ENDIF
LOCAL cFind as String
cFind = ALLTRIM(ThisForm.Text1.Value)
LOCAL bb as Double
ThisForm.nStart = 0
bb = 0
DO WHILE bb >=0
bb = ThisForm.oleDetails.Find(cFind,ThisForm.nStart, -1)
IF bb >-1
ThisForm.nStart = bb+1
* highlight it
THISFORM.oleDetails.SelColor = RGB(255,0,0)
THISFORM.oleDetails.SelBold = .T.
ELSE
EXIT
ENDIF
ENDDO

[garfield]

是否不要用vfp的 textbox ,而是改用 Rich Text 來做輸入條件的物件,這様就行了?

[wing]

以上的2組代碼是採用 Microsoft Rich Text 進行的.
結果是搜尋中文時,程式就死了,只見[沙漏]不停.
我怎樣附加整個表單給[社區]下載操作指教?

[garfield]

將form相關的檔案 用 zip 壓成一個檔案,
在回覆文章時用"新增附加檔案"即可上傳.

我說: "改用 Rich Text 來做輸入條件的物件"
你了解我說的意義嗎?
是用 ThisForm.rich1.text , 而不是用 thisform.text1.value

[wing1]

請各方高手指教怎樣才可以搜尋和光標中文文本

[garfield]

檔案不齊全無法測試,
請你先測試我說的方法是否可行再來發問.

[wing1]

已試過你的建議,不成功.
現再上載表單. rtf_sample

[nelsonchuang]

我記得richtext的find好像有問題,不要去用它.