もうすぐ今年のお仕事が終わります。お休みは、大みそかから３日まで。今年は短い年末年始です(T_T)

フォーラムの投稿が、全然なく、皆さんもうお休みなんだなぁ～と羨ましく思います。

今日、Excelファイルを何百か作成するシナリオを作成しました。この時、ファイル名を社名にすると、長すぎるので、株式会社→(株）などを

行うライブラリを作成しました。（ノードで置換は時間が掛かりすぎるためです）

このライブラリの後に、ノード「全角化／半角化」で半角化し、文字列置換で半角スペースを削除すれば、かなり短くできます。

　社名略称化、外字変換

　　　　　↓

　全角化／半角化　　（半角化）

　　　　　↓

　文字列置換　　　（半角スペース削除）

実施は、この略称化の中に、社内の共通外字も入れていますが、スクリプトのafter、boforeに必要なものは付け加えてご利用ください。

最後に、

本年はお世話になりました。来年もよろしくお願いいたしますm(_ _)m

【名前】社名略称化、外字変換

【注釈】

以下のように社名を変換します。
㈱　→　(株)
㈲　→　(有)
株式会社　→　(株)
有限会社　→　(有)
合資会社　→　(資)
合名会社　→　(名)
一般社団法人　→　(一社)
公益社団法人　→　(公社)
医療法人社団　→　(医社)
社団法人　→　(社)
農業協同組合　→　農協
漁業協同組合　→　漁協

連合会　→　連
協同組合　→　(協)
財団法人　→　(財)
宗教法人　→　(宗)
独立行政法人　→　（独）
社会福祉法人　→　（福）

【スクリプト】

Const after="㈱,㈲,株式会社,有限会社,合資会社,合名会社,一般社団法人,公益社団法人,医療法人社団,社団法人,農業協同組合,漁業協同組合,連合会,協同組合,財団法人,宗教法人,独立行政法人,社会福祉法人"

Const before="(株),(有),(株),(有),(資),(名),(一社),(公社),(医社),(社),農協,漁協,連,(協),(財),(宗),(独),(福)"

mt = Split(after,",")
sk = Split(before,",")

strValue = $社名$
str = GetUMSVariable(strValue)

'文字列置換
for i=0 to ubound(mt)
  str = Replace(str,mt(i),sk(i))
next
Call SetUMSVariable(strValue,str)