Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
372 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11987】文字列からHTMLタグを含んだ文字列を生成 SIZU 11/5/8(日) 11:02 質問[未読]
【11988】Re:文字列からHTMLタグを含んだ文字列を生成 よろずや 11/5/8(日) 17:02 回答[未読]
【11989】Re:文字列からHTMLタグを含んだ文字列を生成 SIZU 11/5/8(日) 19:04 お礼[未読]
【11987】文字列からHTMLタグを含んだ文字列を生成
質問  SIZU E-MAIL  - 11/5/8(日) 11:02 -
引用なし
パスワード
   区切り記号含みの文字列からHTMLタグを含んだ文字列を生成しようと思っています。
１）文字列を配列化ー＞２）HTMLタグを挿入していく
下記のようにPERLで組んだのですが、VBAに組みなおしたいのですが、VBAは初心者でよくわかりません。
お願いいたします。
sub make_htmltug($){
　my ($val)=@_;#区切り記号を含んだ文字列
　my $marker=",";#区切り記号
　my @array=split(/$marker/,$val);
　#ﾃﾞｰﾀがない場合=0　ﾃﾞｰﾀがあるがmarkerがない=1
　if(@array <= 1){ return $val; }
　my $totable="<table><tr><td>";
　my $count=1;
　foreach(@array){
　　$totable .= $_;
　　if($count == @array){
　　　$totable .= "</td></tr></table>";
　　}else{
　　　$totable.= "</td></tr><td>";
　　}
　　$count++;
　}
　return $totable;
}
【11988】Re:文字列からHTMLタグを含んだ文字列を...
回答  よろずや  - 11/5/8(日) 17:02 -
引用なし
パスワード
   Function make_htmltug(Str As String) As String
　　make_htmltug = "<table><tr><td>" & Replace(Str, ",", "</td></tr><tr><td>") & "</td></tr></table>"
End Function

配列を使いたかったのかな？
【11989】Re:文字列からHTMLタグを含んだ文字列を...
お礼  SIZU E-MAIL  - 11/5/8(日) 19:04 -
引用なし
パスワード
   ▼よろずや さん：
>Function make_htmltug(Str As String) As String
>　　make_htmltug = "<table><tr><td>" & Replace(Str, ",", "</td></tr><tr><td>") & "</td></tr></table>"
>End Function
>
>配列を使いたかったのかな？

いえいえ　無理に配列は不要でした。
こんな方法もあったんですね。
vbaとかperlとかの前に　「目うろこ」　です。(@o@)

これから試してみますが、多分ＯＫかと。
ありがとうございました。m(__)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
372 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078191
(SS)C-BOARD v3.8 is Free