テキストにある文字を半角か全角かを区別して20バイトで区切るには? (ID:124234)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 すみません、入力ミスしてました。 text1に文章があり、それを20バイトずつ、text2に表示させようとしています。 例えば、 text1： 49458364135459ああいいいううう text2: 49458364135459ああい いいううう となるようにしたいです。 そこで Dim strA As String Dim A as Integer a=1 Do until strA="" strA = StrConv(MidB(StrConv(text1, vbFromUnicode), a, 20), vbUnicode) text2=strA & vbCrLf a = a + 20 loop としましたが、20バイト目がもし全角であれば、21バイト目にもまたぐので、 この場合19バイト目で区切り、20バイト目から次の行にさせたいのです。 Dim strA As String Dim strB As String Dim a as Integer Dim b as Integer a=1 Do until strA="" strA = StrConv(MidB(StrConv(text1, vbFromUnicode), a, 20), vbUnicode) strB = StrConv(MidB(StrConv(strA, vbFromUnicode), 20, 1), vbUnicode) If LenB(strB) = 1 Then strA = StrConv(MidB(StrConv(text1, vbFromUnicode), a, 20), vbUnicode) a = a + 20 Else strA = StrConv(MidB(StrConv(text1, vbFromUnicode), a, 19), vbUnicode) a = a + 19 End If text2=strA & vbCrLf loop とやってみましたが、うまくいきません。 どこが間違っているのでしょうか? うまく説明できていなければ申し訳ありません。