【HSP3】ConvertStringToVariant | Codetter（こーどったー）

1
2
3
4
5
6
7
8
#module
#deffunc ConvertStringToVariant var out, str in 
    dimtype out, vartype("variant")
    out("vt") = 8/*VT_BSTR*/
    out("val") = in
    bstr = v("bstrptr")
return bstr
#global
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX