|
いつもお世話になっております。
現在、テキストファイルを読み込み、テキストファイルの"AAA"を検索し
一致する行をシート上のtextboxにコピーしています。
しかし、"−"や"〜"、"1."等がバケてしまいます。
"−" → -
"〜" → ~
"1." → ①
マクロは、下記のように組んでいます。
文字バケしないようにするには、どうしたらよいのでしょうか?
また、文字化けしたものを直すいい方法は無いでしょうか?
Sub Disp()
Dim fso As Object, fnow As Object, xlsThis As Object, objSheet1 As Object
Dim FP As Variant, cont1 As Variant
Set xlsThis = ThisWorkbook
Set objSheet1 = xlsThis.Worksheets("Disp")
objSheet1.TextBox1 = ""
Const ForReading = 1, ForWriting = 2, ForAppending = 8
FP = "C:\AAAA.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fnow = fso.OpenTextFile(FP, ForReading)
Do While fnow.AtEndOfStream <> True
temp = fnow.readline
If temp Like "*aaa*" Then
Cont1 = Split(Replace(temp, ";", ":"), ":")
objSheet1.TextBox1 = Cont1(2)
end if
fnow.Close
Set fnow = Nothing
End Sub
|
|