VB Script - csvファイルから特殊文字を削除する

Question

入力したcsvファイルには、以下の特殊文字がファイルのどこにあってもかまいません。私は以下の特殊文字を代替テキストに置き換えなければなりません。どのようにVBスクリプトでこれを行うことができますか？

®³・•½×ïΕ - ∞∞「「≤≥•

私たちは、CSVファイルの各セルを反復処理し、各セル内の各バイトを検証し、アスキーとそれを比較することができ

Answer 1

あなたの要件に基づいて値を計算し、そのAsciiの値が期待している値の範囲を下回らない場合は、必要なテキストに置き換えることができます。以下のサンプルコード

Workbooks.Open("Your CSV file") 
for k = 1 to Activeworkbook.Sheets(1).usedrange.rows.count 

for j= 1 to Activeworkbook.Sheets(1).usedrange.columns.count 
value=Activeworkbook.sheets(1).cells(k,j) 
newvalue="" 
for i=1 to len(value)-1 

temp=mid(value,i,1) 
if (Asc(temp)<127 and Asc(temp)>31)then ' i am just assuming only the values on keyboard should be included any other conditions required for your requirement can be implied here 

newvalue=newvalue & temp 

else 

newvalue=newvalue &"required text" 
endif 

next 

activeworkbook.sheets(1).cells(k,j)=newvalue 

next 
next