#module ;/////////////////////////////////////////////////////////// ;// URLエンコード ;// ;// urlenc p1,p2 ;// ;// p1 : URLエンコードする文字列 ;// p2=変数 : 格納する変数 ;// ;/////////////////////////////////////////////////////////// #deffunc urlenc str _in, var retval in = _in sdim retval, strlen(_in)*3+1 repeat strlen(_in) poke retval,cnt*3,strf("%%%02X",peek(in,cnt)) loop poke retval,strlen(_in)*3,0 return #global