HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2011
0923
りゅりゅネットからダウンロードしたtxtの内容からURLを取得したいのですが、うまくいきません4解決


りゅりゅ

リンク

2011/9/23(Fri) 17:10:47|NO.41612

タイトルのとおりです
テキストのダウンロードまでは成功するのですが、URLが取得できません;;
どうすればいいか教えてください


#include "hspinet.as" #include "mod_regexp.as" netinit;初期化 if stat : dialog "ネット接続できません。終了します" : end;エラー neturl "http://xxxx.org/";アドレス指定 fileName = "xxxx.txt" *fileGet netload fileName gosub *txtChange gosub *urlGet stop *txtChange;Downloadしたtextの改行コードを変換 notesel getText noteload fileName mes "Download完了" getText = replace(getText,"\\n|\\r","\r\n") notesave fileName mes "変換完了" return *urlGet notesel getText noteload fileName noteget hUrl,1 hUrl = match(hUrl,"http://.?") mes "URL取得" mes "URL : " + hUrl return



この記事に返信する


k5342

リンク

2011/9/23(Fri) 17:52:54|NO.41613

そのテキストっていうのはどんな内容ですか?
URLだけが記述されているんでしょうか。
テキストの内容をおしえてもらえませんか?

改行コード変換はいらないかもしれないです。



Cookies

リンク

2011/9/23(Fri) 18:59:11|NO.41614

hUrl = match(hUrl,"http://.?")
とのことですが、「http://.?」では、
「http://」
http://g
http://y
などにしかマッチしません。
http://.+」か「http://.*」のほうがいいんではないでしょうか。

もしもURLの次が空白、など区切りがあるのなら、
「http://[^ ]*」のほうがいいかもしれませんね。
("http://[^(区切り)]*")

ところで、なぜこんなにも正規表現を使おうとするんでしょうか。



りゅりゅ

リンク

2011/9/23(Fri) 22:04:58|NO.41619

テキストは、これを使うつもりでいます
http://ggtea.org/autoxmas.txt

改行コード変換は、ダウンロードしたファイルを開くとなぜか一行になってしまっているので
2行目を取得したいので必要でした

あと、コードを以下のように変えたのですが、2行目の取得の時点で失敗しているようです;;
実行したら空白になってしまいました

*urlGet notesel getText noteload fileName noteget hUrl,1 mes hUrl hUrl = match(hUrl,"http://.*") mes "URL取得" mes "URL : " + hUrl return



りゅりゅ

リンク

2011/9/23(Fri) 22:19:22|NO.41620

改行コード変換に失敗してました
一行ごとに空白が入ってしまっていました

	getText = replace(getText,"\\n|\\r","\r\n")

	getText = replace(getText,"\\n|\\r","\n")
にしたら出来ました
ありがとうございました



ONION software Copyright 1997-2021(c) All rights reserved.