掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＵＲＬに自動でリンク (ID:6951)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Zaurus = Class(TPDA)で書いたので、 実パラメータの順番、位置を示す数字が適当ですが 全体の流れはこんなものですか？ function henkan(s:string):string; var moji:array[0..60] of char = ('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z','a','b','c','d','e','f','g','h','i','j','k','l','m','n','o','p','q','r','s','t','u','v','w','x','y','z','.','/',':','?','&','=','#','\','-','_'); hoge,hoge2:string; i:integer; begin i:=ansipos('http://',s); while i>0 do begin hoge:=hoge+leftstr(s,i-1); s:=rightstr(s,length(s)-i+2); i:=0; while (s[i] in moji)and(length(s)>0) do begin hoge2:=hoge2+s[i]; i:=i+1; end; s:=stringreplace(s,hoge2,'',[]) hoge:=hoge+'<A Href='+hoge2+'>'+hoge2+'</A>'; hoge2:=''; i:=ansipos('http://',s); end; hoge:=hoge+s; result:=hoge; end; jokさんなら何がしたいかは分かってくれると思います
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.