エクセル テキストデータから一部情報の抜き出し方法

システムの設計ミスから、通販における顧客データをＣＳＶ出力すると
「ご利用ありがとうございます。●●通販でございます。
お客様ＩＤ　Ｘ●●●●　お客様名前　●●●●●　お客様住所　●●●●●　お客様電話　●●●●●　ご注文内容　●●●●●」と１セルに複数の情報が落ちてしまいます。
システムの修正に時間がかかるため、取り急ぎ、そのセルからエクセル関数などを使って、必要データを抜き出したいのですが、どのような方法があるでしょうか？各項目の文字数や、項目毎のスペース数はバラバラで法則性がありません。ちなみにお客様ＩＤの頭は「Ｘ」＋１０桁の数字になっています。よろしくご教授ください。

No.1 回答者： jamshid6 回答日時： 2009/05/20 17:27

データの中にもスペースがある可能性があるなら、一番手っとり早い方法はやはり「CSVにすること」ではないでしょうか。

1) メモ帳で開く
2) 編集－置換で、「お客様ＩＤ」→「,お客様ＩＤ,」、「お客様名前」→「,お客様名前,」という風に項目をカンマで挟むように置き換える
3) 保存してCSVとして開く

当面何度もそれを行わなければならないならば、この変換処理はExcelVBAでやっても数行の処理です。
Sub ProcSep()
Dim sDataline As String
Close
Open "C:\ファイル.csv" For Input As #1
Open "C:\ファイル2.csv" For Output As #2
Do Until EOF(1)
Line Input #1, sDataline
sDataline = Replace(sDataline, "お客様ＩＤ", ",お客様ＩＤ,")
sDataline = Replace(sDataline, "お客様名前", ",お客様名前,")
sDataline = Replace(sDataline, "お客様住所", ",お客様住所,")
sDataline = Replace(sDataline, "お客様電話", ",お客様電話,")
sDataline = Replace(sDataline, "ご注文内容", ",ご注文内容,")
Print #2, sDataline
Loop
Close
End Sub