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

名前

ホームページ(ブログ、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 Len(Text1.Text) 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