HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2007
0519
syou文字の置換2解決


syou

リンク

2007/5/19(Sat) 10:20:54|NO.8340

mesboxに入力した文字をボタンを押したら置換するにはどうしたらいいんですか?
お願いします。



この記事に返信する


osakana

リンク

2007/5/19(Sat) 15:36:05|NO.8350

instr 命令で検索して strmid 命令で必要な部分を取っておいて、
最後に全て組み合わせるっという感じで作って見ました。

sdim txt,1024 ipt1="" ipt2="" pos 200,0 objsize 100,50 button "置換",*tikan pos 100,0 objsize 100,25 input ipt1 input ipt2 pos 0 mesbox txt,640,430 idmb=stat pos 0,0 :mes "置換する文字" pos 0,25 :mes "置換後の文字" stop *tikan /* 置換処理 */ //文字列検索 index=instr(txt,0,ipt1) if index=-1 :dialog "見つかりませんでした" :stop //文字サイズ取得 txtlen=strlen(txt) len1=strlen(ipt1) //必要な部分(置き換え文字列より後ろ)を取っておく。 buf=strmid(txt,index+len1,txtlen-index-len1) //置換文字が見つかった所を終端にする。 poke txt,index,0 //終端部分に必要部分を結合し再構築 txt+=ipt2+buf //mesbox に反映 objprm idmb,txt //現在の文字数表示 title ""+strlen(txt) stop



syou

リンク

2007/5/20(Sun) 11:03:51|NO.8370

ありがとうございます。
参考にさせていただきます。



ONION software Copyright 1997-2023(c) All rights reserved.