ファイル名として使えない文字列を除去
2020年04月30日
完全に個人的メモです。
前回作った、コピーした文字列をテキストファイルとして保存するVBscript。
メールの件名から本文までをコピーして、
ファイル名指定で、コピーしたテキストを貼り付けると
件名だけがファイル名になるのだけど、
よく使われる":"は、禁則文字になっててエラーになる。
なので、自動的に除去する関数を作ってみた。
以下、ソース。
前回作った、コピーした文字列をテキストファイルとして保存するVBscript。
メールの件名から本文までをコピーして、
ファイル名指定で、コピーしたテキストを貼り付けると
件名だけがファイル名になるのだけど、
よく使われる":"は、禁則文字になっててエラーになる。
なので、自動的に除去する関数を作ってみた。
以下、ソース。
dim iText
iText = inputbox("ファイル名を入力")
iText=ReplaceNGwords(iText)
msgbox iText
function ReplaceNGwords(iText)
Dim NGwords
NGwords = Array("\" , "/" , ":" , "*" , "?" , """" , "<" , ">" , "|" )
dim k
for k = Lbound(NGwords) to Ubound(NGwords)
iText=replace(iText , NGwords(k) , "")
next
ReplaceNGwords=iText
end Function
PR
Comment