投稿日 | : 2004/07/07(Wed) 10:39 |
投稿者 | : 花 |
URL | : |
タイトル | : 検索について |
Point = InStr(1, データ, "記号") '検索記号、その1
NextPoint = InStr(1, データ, "記号") '検索記号、その2
If InStr(1, データ,"記号") <> 0 Or _
InStr(1, データ), "記号") <> 0 Then '検索記号があるかどうか判断
Call PrintText(9, Y + 1.1, Mid(データ), 1, Point - 1)) 'データの読み取り
If (Point + 1) > NextPoint Then
Call PrintText(9, Y + 1.6, Mid(データ), Point + 1, (Point + 1) - NextPoint))
Else
Call PrintText(9, Y + 1.6, Mid(データ), Point + 1, NextPoint - (Point + 1)))
Call PrintText(9, Y + 2.1, Mid(データ), NextPoint + 2, 80))
End If
Else
If Len(データ) < 80 Then '検索記号がない時の判断
Call PrintText(9, Y + 1.1, データ) 'データの読み取り1行目の18
ElseIf Len(データ)> 80 Then
Call PrintText(9, Y + 1.1, Mid(データ), 1, 80))
Call PrintText(9, Y + 1.6, Mid(データ), 81, 80))
Call PrintText(9, Y + 2.1, Mid(データ), 162, 80))
End If
End If
VB6で以上のプログラムを作りましたが、記号があるかどうかを検索して、
記号があったら改行して表示します、でも、同じ記号が二つがあるとしたら、
改行せずに1行で表示したいのですが、どうしたらよろしですか?教えてください、
お願いします。