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


HSPTV!掲示板


未解決 解決 停止 削除要請

2012
0319
awq特定のものに反応するもの3解決


awq

リンク

2012/3/19(Mon) 17:13:30|NO.45497

入力した文章の中からキーワードを見つけるには
どうしたらいいでしょうか?
たとえば
「パソコン」というキーワードをセット。
→「○*△※パソコン¥%×」という文章を入力。
 →「パソコン」というキーワードが入っているのでその言葉があることを知らせる。
というものです。



この記事に返信する


てれてれ

リンク

2012/3/19(Mon) 18:03:53|NO.45498


Keyword = "パソコン" Sentence = "○*△※パソコン¥%× " input Sentence,200,20 onkey *Check *Check if instr(Sentence,0,Keyword) != -1 : mes "ある"
チェック部分とか相当雑ですけど



cats

リンク

2012/3/19(Mon) 18:50:14|NO.45500

↓のページにこんなものがありました。
http://scripttpircs.seesaa.net/article/112296780.html

#module #deffunc Replace var buf, var pattern, var repstr,int p1 newcom oReg, "VBScript.RegExp" comres buf oReg("Pattern")= pattern if (p1=null | p1!1) : oReg("Global")= 1 if p1=1 : oReg("Global")= 0;0=1回 1=全体 oReg->"Replace" buf, repstr delcom oReg return #deffunc Match var buf, var pattern newcom oReg, "VBScript.RegExp" comres result oReg("Pattern")= pattern oReg("Global")= 1 oReg->"Execute" buf oMatches=result rt = oMatches("Count") if(rt>0){ repeat rt oMatch=oMatches("Item",cnt) Matchdata.0 = oMatch("Value") Matchdata.1 += Matchdata.0 Matchdata.0 = "" loop buf = Matchdata.1 delcom oMatch delcom oMatches } delcom oReg delcom result return rt #global teststr="112244aabbcc" testptn="4" repstr= "3" mes "対象文字 \""+teststr+"\"" mes "検索文字 \""+testptn+"\"" mes "置換文字 \""+repstr+"\"" strcopy = teststr Replace strcopy, testptn, repstr mes "置換結果 \""+strcopy+"\"" strcopy ="" strcopy = teststr Match strcopy, testptn mes "検索結果 \""+stat+" : "+strcopy+"\"" mes "\n" teststr="12345abcdefg" testptn="12345" repstr= "a" mes "対象文字 \""+teststr+"\"" mes "検索文字 \""+testptn+"\"" mes "置換文字 \""+repstr+"\"" strcopy ="" strcopy = teststr repeat 2 Replace strcopy, testptn, repstr,1 loop mes "置換結果 \""+strcopy+"\""



awq

リンク

2012/3/24(Sat) 14:07:53|NO.45569

皆さんご丁寧にありがとうございました。



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