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

名前

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

本文 これでどうですか？？ Private Sub Command1_Click() Dim str As String Dim strMid As String Dim lng As Long Dim sumlng As Long Dim i As Integer For i = 1 To 20 strMid = Mid$(Text1.Text, i, 1) lng = LenB(StrConv(strMid, vbFromUnicode)) If 20 >= (sumlng + lng) Then str = str & strMid sumlng = sumlng + lng Else str = str & vbCrLf str = str & strMid sumlng = 0 End If Next i Text2.Text = str End Sub Private Sub Form_Load() Text1.Text = "49458364135459ああいいいううう" Text2.Text = "" End Sub