タイピング文字の一番後ろがおかしくなります。

質問

改行をしているせいなのか分かりませんが、タイピング文字の各行の一番最後に
「＞」とついてしまいます。
それは最後まで消えないのではなく、いったん画面に現われてから
バックスペースで消したようにすぐ消えます。

一番最後の行には現われません。

直し方を教えてください。

回答No.5

BLUEPIXY · ベストアンサー

"<"を見つけたら">"まで、飛ばすようにするサンプル
＃４でも述べているように、本来はもっとちゃんとした処理をしないといけない（まあ、とりあえず版）
---------------------------------------------------------------------
<script language="VBScript">
<!--
Dim counter, txt, txt_len, timerID

Sub Window_onLoad()
txt = txtbox.innerHTML
txt_len = Len(txt)
counter = 1
timerID = Window.SetInterval("typewriter()", 300)
End Sub

Sub typewriter()
Dim cur
If counter > txt_len Then
cur = ""
Window.ClearInterval(timerID)
Else
cur = "<font color='#FF0000'>_</font>"
End If
If Mid(txt, counter, 1) = "<" Then
Do until Mid(txt, counter, 1) = ">"
counter = counter + 1
Loop
End if
txtbox.innerHTML = Left(txt, counter) & cur
counter = counter + 1
End Sub
'-->
</script>

回答No.4

BLUEPIXY

>タグの処理とは、具体的にどうすればいいのでしょうか…
そうですね。
ちゃんとした処理としては、ＤＯＭでツリーをなぞるような感じになるのでしょうが、それはそれで面倒だし、
単純には、'<'を見つけたら"対応する"'>'まで一気に出力するとか
これも、ちゃんとやるとなると<A>に対する</A>を見つけなきゃいけません（理想的には、中の文字を一文字ずつ出力したあとリンクにするか、リンクの中で一文字ずつ増やしてやらないといけない）ので、結構面倒です。

回答No.3

BLUEPIXY

#1です。
txtbox.innerHTML = Left(txt, counter) & cur
でもとの内容を１文字ずつ書き出していますけど、
<BR>
などのタグが書き出す途中
<
B
R
>
となって、タグだと認識される前の
<
が表示されているのだと思います。
タグの処理をちゃんとやるか、
タグをなくして、出力時に付加してやるとかしないとだめかと思います。

お礼

ありがとうございました。
タグの処理とは、具体的にどうすればいいのでしょうか…
もし宜しかったら教えてください。

回答No.2

moon_night

エディターのせいの気もしますが。。。
エディターは何を使用してますか？

お礼

ありがとうございます。

2stlyeの「スタンダードＨＴＭＬ」を使ってます。
ちなみにタグはＨＴＭＬサイトさんからコピペで使いました。

回答No.1

BLUEPIXY

ソースを挙げていただけますか

お礼

<script language="VBScript">
<!--
Dim counter, txt, txt_len, timerID

Sub Window_onLoad()
txt = txtbox.innerHTML
txt_len = Len(txt)
counter = 1
timerID = Window.SetInterval("typewriter()", 100)
End Sub

Sub typewriter()
Dim cur
If counter > txt_len Then
cur = ""
Window.ClearInterval(timerID)
Else
cur = "<font color='#FF0000'>_</font>"
End If
txtbox.innerHTML = Left(txt, counter) & cur
counter = counter + 1
End Sub
//-->
</script>

<div id="txtbox" style="width:500;">
文字<BR>
文字<BR>
文字<BR>
文字<BR>
<BR>
<BR>
<BR>

<a href="html">エンター</a>

</div>

です。