이걸 웹언어로 번역하면 어떻에되는지요?
이건 웹이란 관련없는듯하여 여기 올립니다.
싸이월드 미니홈피뒤 tid값을 웹에서 뽑을려고하는데요
텍스트박스만들어서 그않에 주소뒷부분을 넣어버리면 고유번호가 뜨게하는형식을할려는데
이거 웹으로 번역해주실분있으신가요?
Dim td As String
On Error GoTo err:
Text2 = Split(Inet1.OpenURL("http://www.cyworld.com/" & Text1), "tid=")(1)
td = Split(Text2, "&url")(0)
td = Split(Text2, "&url")(0)
If IsNumeric(td) = False Then GoTo err:
msgbox "고유번호는 " & td & "입니다."
Exit Sub
|
댓글을 작성하시려면 로그인이 필요합니다.
댓글 3개
parse_str($url[query]);
echo $tid;
답다드렷는데 뭘 고민하십니까 ;