'板URLとスレキーからスレURLを返す関数 Function GetSureurl1(ItaURL As BytePtr,SureNo As BytePtr) As BytePtr 'ItaURL:板のアドレス 'SureNo:スレキー(文字列で指定のこと) '戻り値:その二つから生成したスレURLを返す '戻り値は呼び出し側で開放する必要あり Dim a As Long Dim b As Long Dim c As Long Dim s As Long
GetSureurl1=calloc(lstrlen(ItaURL)+lstrlen(SureNo)+16) a=0:b=0:c=0 s=lstrlen(ItaURL) Do If ItaURL[a]=47 Then b=b+1 If b=3 Then lstrcat(GetSureurl1,"/test/read.cgi") a=a+14 b=b+1 End If If b=5 Then ExitDo If c>s Then ExitDo GetSureurl1[a]=ItaURL[c] a=a+1:c=c+1 Loop lstrcat(GetSureurl1,SureNo) lstrcat(GetSureurl1,"/") End Function