【多機能】 テキストエディタ Apsaly 【でも軽快】 [sc](★0)
-
- 257
- 2012/06/28(木) 12:43:58.25
-
すみません質問です
全角数字を半角に置換するvbsの関数を拾ってきたんですけど
これApsalyで使うにはどうしたらいいでしょうか？
Function funcConv_ZenHan(sStr)
sZen = "０１２３４５６７８９"
sHan = "0123456789"
funcConv_ZenHan = ""
If Len(sStr) > 0 Then
For i = 1 to Len(sStr)
StrBuf = Mid(sStr, i, 1)
If InStr(sZen, StrBuf) <> 0 Then
funcConv_ZenHan = funcConv_ZenHan & Mid(sHan, InStr(sZen, StrBuf), 1)
Else
funcConv_ZenHan = funcConv_ZenHan & StrBuf
End If
Next
Else
funcConv_ZenHan = Str
End If
End Function
sStrにApsaly.GetSelText()を入れてもエラーが出ます
このページを共有する
おすすめワード