UWSCで指定文字があった場合置換

質問

仕事でデータ入力をする機会ができたのですが、

１月５日電気代
１月５日水道代
１月５日ガス代

↑上記の文章を発見した場合

１月６日電気代
１月６日水道代
１月６日ガス代

と自動で置換したいのですが
どうもうまくいきません

仮にメモ帳でやるとしたらどういったスクリプトになるのか
どなたかご教授願います

回答No.1

momoracci · ベストアンサー

解答提示は、やめておきます。

> どうもうまくいきません
試したスクリプトを提示することが望ましいです。

> 上記の文章を発見した場合
pos()関数

> 自動で置換
chgmoj()関数

※pos()関数は省いて、chgmoj()関数だけでもできると思います。

お礼

ご回答ありがとうございます
解答を参考に試行錯誤してみたのですが、全くだめでした
以下プログラムになります

For　i　=　0　to　50
　　id　=　GETID("新規テキスト")
　　if　id　>　0　then　break
　　Sleep(0.1)
Next

idd　=　CHGMOJ(id,"１月５日電気代","１月６日電気代")
ic=getstr(idd)
　　Sleep(0.1)
SendStr(id,ic)
//終了

これでiddに変換された戻り値がくるかと思ったのですが
結果は原文が一度やるごとに倍になっていきます
もしお時間空きましたら、ヒントでもいいので教えていただけたらうれしいです

回答No.2

momoracci

// CHGMOJ()関数の第一引数が違います。UWSCのヘルプ(UWSC.CHM)をご自身で確認なさってください。

/////
TEXTBLOCK 変換前の文章
１月５日電気代
１月５日水道代
１月５日ガス代
ENDTEXTBLOCK
変換後の文章=CHGMOJ(変換前の文章, "１月５日", "１月６日")
MSGBOX(変換前の文章+"<#CR><#CR>"+変換後の文章)

参考URL：

http://sourceforge.jp/forum/forum.php?forum_id=12291

お礼

ご回答ありがとうございます
ご指摘を参考に改良しましたら、なんとできました！
本当にありがとうございます
以下、私なりのスクリプトになります

For　i　=　0　to　100
　　id　=　GETID("新規テキスト")
　　if　id　>　0　then　break
　　Sleep(0.1)
Next
idd = GETSTR(id)
ic=CHGMOJ(idd, "１月５日", "１月６日")
SCKEY(id,　VK_CTRL,　A)
　　Sleep(0.1)
KBD(VK_BACK,CLICK,40)
　　Sleep(0.1)
SendStr(id,ic)

どうも置換がうまくできなかったので
一度消して値を送信してみました
ここから、教えていただいたURLを参考に
実務に使える形に変えていこうと思います
貴重なお時間割いていただきありがとうございました。