Excel VBA質問箱 IV

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

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


50280 / 76732 ←次へ | 前へ→

【31344】Re:Replace(strTEXTDATA,",,",",")できません
発言  ichinose  - 05/11/18(金) 7:50 -

引用なし
パスワード
   ▼ごん さん、かみちゃんさん、おはようございます。
>エクセルで文字列"AA,BB,RR,,,,AA,BB,CC,DD,,,QQ,DD,FF”のデータ
>があるとしてこれの余分なカンマをとって、CSVとして扱いたいのですが
>
>strTEXTDATA=Replace(strTEXTDATA,",,",",")

正規表現を使った別解です。
'=================================================
Sub test()
  Dim cnvstr As String
  cnvstr = "AA,BB,RR,,,,AA,BB,CC,DD,,,QQ,DD,FF"
  MsgBox cnvstr & vbCrLf & Space(Len(cnvstr) / 2) & "↓" & _
     vbCrLf & repeat_Reduct(cnvstr, ",")
End Sub
'=====================================================================
Function repeat_Reduct(f_str As String, r_str As String) As String
  Dim regEx
  Set regEx = CreateObject("VBScript.RegExp")
  regEx.Pattern = r_str & "+"
  regEx.IgnoreCase = True
  regEx.Global = True
  repeat_Reduct = regEx.Replace(f_str, r_str)
  Set regEx = Nothing
End Function

確認してみて下さい。
1 hits

【31342】Replace(strTEXTDATA,",,",",")できません ごん 05/11/18(金) 0:01 質問
【31343】Re:連続したカンマを取り除きたい かみちゃん 05/11/18(金) 0:16 回答
【31344】Re:Replace(strTEXTDATA,",,",&... ichinose 05/11/18(金) 7:50 発言
【31409】Re:Replace(strTEXTDATA,",,"... ごん 05/11/19(土) 0:15 お礼

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