Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22299 / 76738 ←次へ | 前へ→

【59822】Re:文字列の分割について・・・
発言  kanabun  - 09/1/10(土) 0:38 -

引用なし
パスワード
   ごめんなさい。↑の考え方、ShiftJIS コードの 2バイト目がまた
> コード80〜9F、または E0〜FF だったら
そこで1バイト移動してしまうので、
非常にまずかったです。スミマセン。

与えられた文字列の10バイト目と11バイト目以降を カンマで分割する
サンプルだけにしておきます。

Sub Try3()
  Const u1 = "1234567890abcdefghij"
  Const u2 = "あいう111おかきくけこ"
  Const u3 = "あいう1えおかきくけこ"
  
  Debug.Print SplitA(u2, 10) '10バイトまでと それ以降に分割
  Debug.Print SplitA(u3, 10)
  Debug.Print SplitA(u1, 10)
End Sub

Function SplitA(UStr As String, ByVal m As Long) As String
 Dim i As Long
 For i = m To m \ 2 Step -1
   If LenB(StrConv(Left$(UStr, i), vbFromUnicode)) <= m Then
     SplitA = Left$(UStr, i) & "," & Mid$(UStr, i + 1)
     Exit Function
   End If
 Next
End Function

'結果
あいう111,おかきくけこ
あいう1え,おかきくけこ
1234567890,abcdefghij
1 hits

【59814】文字列の分割について・・・ 文字ってわからん 09/1/9(金) 18:25 質問
【59817】Re:文字列の分割について・・・ かみちゃん 09/1/9(金) 20:16 発言
【59819】Re:文字列の分割について・・・ kanabun 09/1/9(金) 21:27 発言
【59820】Re:文字列の分割について・・・ kanabun 09/1/9(金) 23:18 発言
【59822】Re:文字列の分割について・・・ kanabun 09/1/10(土) 0:38 発言
【59844】Re:文字列の分割について・・・ kanabun 09/1/13(火) 11:30 発言

22299 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free