出来るのだASP Q&A掲示板(過去LOG)  訪問数 52046 昨日 889 今日 776
    【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者

[947] Re:掲示板の最終画面の表記にかんして
投稿者:Tomitomiさん 2001/11/07 17:28:07
こんにちは、Tomitomiです。
サッカー見たさに、仕事しながらうずうずしております。今日は定時に帰るぞー。w


> > ようするに指定文字数で改行したい。ということでしょうか?
> というわけではないのですが はみ出し文字を表示したい枠内におさめるということです。
> でも下記のプログラム(他の人の質問から入手しました)
> がよさそうですね。。。
> 私自身下記のスクリプトをどのように宣言してやれば呼び込んでくれるのでしょうか?
> こんな質問をしたら・・・また怒られちゃいますね!
> お願いします。M(_ _)M
>
> Dim a
> Dim strNUM, strNUM2
> strNUM = 文字列
> a = Int(Len(strNUM) / 50)
> b = 0
> For i = 0 To a
> strNUM2 = strNUM2 & Mid(strNUM, (i * 50) + 1, 50) & vbCrLf
> b = b + 1
> Next


よくぞ見つけてくれました。それは僕がお答えしたスクリプトです。w


どこに入れたらいいかわからないということなので、ファンクション化しました。
このスクリプトを答えた時にも書きましたが、テストはしてないので、しっかり動くかはわかりません。
以下のファンクションをどこにでもいいので(<%%>内ね)貼り付けてください。


'##################################################################
'
'指定文字数で改行するファンクション
'
'引数の説明
'strNUM : 指定文字数で改行したい文字列を入れます。
'strCD : 指定文字数を入れます。
'
'例:50文字で改行した場合。
'
'変数 = MojiKIRI(元の文字列,50)
'
'##################################################################
Public Function MojiKIRI(strNUM,strCD)
Dim a
Dim strNUM2,strNUM3

'=========== 改行文字を消去する=============
strNUM3 = replace(strNUM,vbcrlf,"")
strNUM3 = replace(strNUM3,vbcr,"")
strNUM3 = replace(strNUM3,vblf,"")
'===========================================

a = Int(Len(strNUM3) / strCD)
b = 0
For i = 0 To a
strNUM2 = strNUM2 & Mid(strNUM3, (i * strCD) + 1, strCD) & vbCrLf
b = b + 1
Next

MojiKIRI = strNUM2
End Function



また使用方法は、
yoshiaki(国民栄誉賞 )さんの枠内というのを、テーブルに置き換えて説明します。


<table border="1" width="164">
<tr>
<td width="154"><%=MojiKIRI(改行したい文字列,50)%></td>
</tr>
</table>


のようにしてみてください。

掲示板の最終画面の表記にかんして   yoshiaki(国民栄誉賞 )さん [2001/11/07 9:28:07] [924]
  Re:掲示板の最終画面の表記にかんして   Tomitomiさん [2001/11/07 10:02:00] [927]
    Re:掲示板の最終画面の表記にかんして   北岳さん [2001/11/07 12:21:37] [930]
      Re:掲示板の最終画面の表記にかんして   北岳さん [2001/11/07 13:27:28] [934]
    Re:掲示板の最終画面の表記にかんして   yoshiaki(国民栄誉賞 )さん [2001/11/07 13:07:19] [931]
      Re:掲示板の最終画面の表記にかんして   Tomitomiさん [2001/11/07 14:14:41] [940]
        Re:掲示板の最終画面の表記にかんして   yoshiaki(国民栄誉賞 )さん [2001/11/07 17:12:21] [946]
          Re:掲示板の最終画面の表記にかんして   Tomitomiさん [2001/11/07 17:28:07] [947]
            Re:掲示板の最終画面の表記にかんして   yoshiaki(国民栄誉賞 )さん [2001/11/07 17:43:34] [948]


TreeBBS For ASP V.0.1.3
Program By YasNet