才剛剛開始學PB，老師出了一條題目，實在是頭疼欲裂，求教。
現在有三個控制元件
singlelineedit控制元件name:sle_1,text里面有字串“數學,語文,英語”
commandbutton控制元件name:cb_1，用來點擊分析singlelineedit控制元件里面的text內容
multilineedit控制元件name：mle_1，用來輸出
怎么實作字串“數學,語文,英語”
點擊commandbutton控制元件之后
在multilineedit控制元件顯示為
數學
語文
英語
commandbutton控制元件點擊事件為
long ll_i,ll_cnt
string ls_array[]
ll_cnt = wf_parse(sle_1.text,ls_array)
mle_1.text = ''
for ll_i = 1 to ll_cnt
mle_1.text += ls_array[ll_i] + '~r~n'
next
那我multilineedit控制元件的wf_parse函式該怎么填？有兩個變數as_source及as_array[]，都是string型別
string ls_array[] = ?
as_array = ls_array
return 3
求大大們指教
uj5u.com熱心網友回復：
do
i = pos(s1,',')
if i >0 then
s2[f] = left(s1,i - 1)
s1 = mid(s1,i+1)
else
s2[f] = s1
end if
f++
loop while i<>0
uj5u.com熱心網友回復：
long ll_pos, ll_lenstring ls_str, ls_strValue
ls_str=sle_1.text
do
ll_pos = Pos(ls_str, ',')
if ll_pos=0 then
ll_len=len(ls_str)
else
ll_len=ll_pos -1
end if
ls_strValue=https://bbs.csdn.net/topics/f_str(LEFT(ls_str, ll_len))
mle_1.text=mle_1.text+ls_strValue+'~r~n'
if ll_pos>0 then
ls_str = MID(ls_str, ll_pos+len(','))
end if
loop until ll_pos=0
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/31466.html
標籤：基礎類
上一篇：貌似關心PB的人和資訊又躲起來了
下一篇：為啥我的PB程式保存不了