お世話になります。
VB6.0 Win XP Proで開発中です。
文字列を整数型(Integer)に変換する時、
その文字列が整数型に変換可能か事前にチェックしたいのですが
方法が分かりません。
そのような関数はありますか?
どなたか分かる方教えて下さい。
よろしくお願いします。
IsNumeric関数とif文で判断すればいいんじゃないかと思います。
自分も素人に毛が生えたようなものなので、
もっといい方法があるかもしれませんけど・・・
Dim a As String
Dim b As Boolean
Dim c As Integer
a = "任意文字"
b = IsNumeric(a)
If b = True Then
If a <= 32767 And a >= -32768 Then
c = CInt(a)
End If
End If
面倒ならエラーハンドラで変換できないという例外を補足するような構造にしてみては?
function stoi(byval s as string) as integer
on error goto stoiError
stoi=cint(s)
exit function
stoiError:
end function
など?
さもささん、ガッさんご返答ありがとうございます。
IsNumeric関数を使用して判別できました。
ありがとうございました。
ツイート | ![]() |