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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0731
serena (投稿者削除)3解決


serena

リンク

2008/7/31(Thu) 20:32:30|NO.17790

この記事は投稿者により削除されました。
2008/7/31(Thu) 20:40:49



この記事に返信する


ウサギ

リンク

2008/7/31(Thu) 20:39:53|NO.17791

すいません・・・・最初は投稿ミスです・・・

そういえば、
片方のMESBOXに<俺様はお前が世界一好きだ!>
という文を入力したら・・・・
”俺様→僕””お前→あなた””世界一→宇宙一”とワードが変換され、
<僕はあなたが宇宙一好きだ>ともう片一方に表示される・・・
という風なプログラムが作りたいのですが・・・・
どういうふうにすればいいのでしょうか??
まったくわかりません・・・・
1ヶ月考えても・・・・
誰か教えて・・・・・



たこ

リンク

2008/7/31(Thu) 23:31:42|NO.17802

昔自分用に作ったモジュールです
分かりにくいと思いますが、理解しないと意味がないんで…

#module #deffunc RearRange var ans,str _data,int p,int h,str rear /* RearRange p1, p2, p3, p4, p5 p1 :変換結果 p2 :元の文字列 p3 :置き換え始めのインデックス p4 :置き換える文字数 p5 :置き換える文字列 指定した文字列を、p2,p3で指定した条件で文字を置き換えます */ data = _data // ↓ 0〜p , p+h〜終りまでの文字列を抜き出し、欠けた部分にrearを代入 ans = strmid(data,0,p) + rear + strmid(data,p+h,strlen(data)) return #deffunc ComRange var ans ,str _data ,array com ,array rear /* ComRange p1, p2, p3, p4 p1 :変換結果 p2 :元の文字列 p3 :置き換えられる文字列型配列 p4 :置き換える文字列型配列 指定した文字列の中の、p3で指定した文字列を検索し、p4に置き換えます */ sdim ans ans = _data repeat if cnt+1 > length(com) : break // すべて検索し終わったら終了 rcnt = cnt bp = 0 repeat p = instr(ans, bp, com(rcnt))// bpバイト目から文字列の検索 if p = -1 : break// なかったら次の文字列へ // 置き換え RearRange ans ,ans ,bp+p ,strlen(com(rcnt)) ,rear(rcnt) bp = bp+p+strlen(rear(rcnt))// 次検索するインデックスの調整 loop loop return #global a = "俺様はお前が世界一好きだ!" mes a b = "" com = "俺様", "お前", "世界一" rear = "僕", "あなた", "宇宙一" ComRange b, a, com, rear mes b



ウサギ

リンク

2008/8/1(Fri) 15:33:57|NO.17806

ありがとうございます。
参考にします!



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