|
▼初投稿 さん:
>【サンプル】
>A B C 全角文字列D 全角文字列E F
半角スペースで分割したそれぞれの部分文字列が 全角文字列と半角文字列に
分れていたら、その境界に スペースを挿入する。
Sub trial()
Dim i As Long, j As Long
Dim ss As String, s As String
Dim v
ss = "A B C 全角文字列D 全角文字列E F"
v = Split(ss)
For i = 0 To UBound(v)
s = v(i)
For j = Len(s) To 2 Step -1
If LenA(Mid$(s, j, 1)) <> LenA(Mid$(s, j - 1, 1)) Then
v(i) = Left$(s, j - 1) & " " & Mid$(s, j)
Exit For
End If
Next
Next
MsgBox Join(v, " ")
End Sub
Private Function LenA(s As String) As Long
LenA = LenB(StrConv(s, vbFromUnicode))
End Function
結果-----
A B C 全角文字列 D 全角文字列 E F
|
|