이걸 웹언어로 번역하면 어떻에되는지요? 정보
이걸 웹언어로 번역하면 어떻에되는지요?
본문
이건 웹이란 관련없는듯하여 여기 올립니다.
싸이월드 미니홈피뒤 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
추천
0
0
댓글 3개
$url = parse_url(주소변수);
parse_str($url[query]);
echo $tid;
답다드렷는데 뭘 고민하십니까 ;
parse_str($url[query]);
echo $tid;
답다드렷는데 뭘 고민하십니까 ;
이거 tid값가져 오는건데 멀 고민을 하시는거지.?
비베네요.^^%%