0

私はASPに変換する関数があります

ä to ä これまでのところとても良い.

  でスペースを埋めるのが少ない場合は、10 文字のスペースをカットしてください。. このような：

テスト            

しかし、「täst」と言うと、次のようになります。

て ä t  

ä を 1 文字ではなく 6 文字と解釈します。それを回避する賢い方法はありますか？正しい数のスペースが必要なため、この問題は私のデザインを台無しにします。全体が大きな選択ボックスに入ります。

; を追加する必要があります。最後に &... 編集者が実際に解釈してくれるので、追加できました。

4

2 に答える 2

1

変換する前に文字数を数えていただけますか?

したがって、" täst" の例では、 6 が必要であると判断できます&nbsp's。次に、文字 ( ) を変換してから ( )te &auml tを追加します。&nbsp'ste &auml t &nbsp &nbsp &nbsp &nbsp &nbsp &nbsp

于 2010-04-15T14:47:57.200 に答える
1

何かのようなもの ？小さなエラーが発生するのを撃たないでください。今はテストできません（ここにはサーバーがありません）ので、心からコーディングされています。

function CountChars ( byval s )

dim i, inAmp, Result

   Result = 0
   inAmp = False
   for i = 1 to len(s)
      select case mid(s,i,1)
         case "&" 
            Result = Result + 1
            inAmp = True
         case ";"
            if inAmp then inAmp = False
         case else
             if not inAmp then Result = Result + 1
      end select
   next
   CountChars = Result
end function
于 2010-04-15T16:06:17.553 に答える