Excel VBAの文字列と数値の分類
txtファイルで取り込んだ2行にまたがっている数値・英文字・ひらがななどを、数値だけのtxtファイルとそれ以外のtxtファイルを別々に作成し、保存するプログラムを組みたいのですが、よく分かりません。
ちなみに、使っているOSとAPはWinXP、Excel2003です。
InputData.txtの内容
A34bFg7p0 あ 1ylut890
B45LK4L え
Number.txtの完成形
34701890454
String.txtの完成形
AbFgp あ ylutBLKL え
'変数の宣言
Dim myFile As String
Dim CC As Integer
Dim XX As Integer
Dim WW As Variant
Dim str As String
Dim tempStr As String
Dim B As String
Dim C As String
myFile = Dir("InputData.txt")
'ファイルの読み込み
If myFile = "InputData.txt" Then
Open myFile For Input As #1
Do While Not EOF(1)
Input #1, myText
Loop
'書き込みファイルの作成
Open "Number.txt" For Output As #2
Open "String.txt" For Output As #3
'数字・文字列の分類
CC = Len(myFile)
For XX = 1 To CC
str = Mid(myFile, XX, 1)
If str >= 0 And str <= 9 Then
B = B & str
Else
C = C & str
End If
Next
Print #2, B
Print #3, C
Close #1, #2, #3
'エラーメッセージの表示
Else
MsgBox "ファイルは存在しません。"
End If
ここまでやっている状態です。よろしくお願いします。
お礼
うまくいきました。 ありがとうございます。