株の銘柄コードを取り出すマクロを教えて - 秀丸エディタ関連ソフト会議室 - スレッド22368, 2007/01/17

株の銘柄コードを取り出すマクロを教えて

emc827 さん　07/01/17 18:56

長文、失礼します。
株の銘柄コード（4桁固定）を取り出すマクロを教えてください。
現状、１つ１つ手作業で取り出しています。大変面倒です。
この様なマクロできますでしょうか。

1.具体例
コロの朝：http://www.koronoasa.com/blog/
一部取り出したsampleを下記に添付します。

2.出力形式　text　file
8306
9205
8604
8591
....

よろしくお願いします。

sample：
----------------------------------------------------------------------------
-------
震災から12年・・・

2007年 1月 17日水曜日 7:53:02 am 先負 [二十八日月] 潮汐:中潮 by コロ
2007年　1月 17日（水）関西淡路大震災から12年　冷たい雨
NY株式　ダウ　12,582.59ドル　+26.51　　　　　NDQ　2,497.78ポイント　-5.04
CME225　　17,235.0円　（大証先物比　-15円）

(8306)三菱UFJ銀（153万円）今年9月メドに大幅株式分割　10分割で個人株主増やす
(9205)日航（240円）国際線も再編　3路線運休・減便　採算重視を徹底
今日から日銀決定会合　利上げの是非議論　消費など判断詰め「プラス基調」再点検
三菱ふそう週内にリコール　新型ハブも強度不足　大型トラック3万台
(8604)野村HD（2290円）日本政策投資銀行共同で不動産投資　折半で新会社　最大50
00億円、開発
1月「日経消費DI」現在の業況判断DIがマイナス7に　1年3ヶ月ぶりマイナス
(8591)オリックス（33850円）中堅不動産仲介の東都を数10億円で買収　1種のMBO
（経営陣と共同買収）の形に
欧州、電子証券取引ラッシュ　金融機関主導で3構想　主要証券取引所も対抗策
(4042)東ソー（572円）検査薬生産5倍　ノロウィルスの流行受け　07年度　年100万
本体制
(4801)セントラルスポーツ（2995円）米でフィットネス事業　中堅米ウェルブリッジ
を同社経営陣と共同買収　アジア展開にらむ
(8802)三菱地所（3150円）「新丸の内ビルディング」同社運営丸の内地区商業施設の
店舗面積　百貨店超す10万平方メートル
塾・授業映像配信競う　ネットやビデオ・オン・デマインド駆使　(9789)栄光（524
円）(4718)早稲田アカデミー（2110円）今春にも配信
(8473)SBIHD（44200円）(4741)インターネット総研（83500円）の買収合意撤回　子
会社(4313)IXI（204千円）管理ポスト入りで協議仕切り直し
(3754)エキサイト（376千円）英ベンチャーADVFNと業務提携「エキサイトファイナン
ス」で金融情報を1月中に提供　　（日経新聞）
(2211)不二家（199円）期限切れ今月も使用　発覚後ｍｐケーキ製造　外資ファンド
触手も　業界再編の焦点に
米一転大寒波　暖冬と思ったら41人死亡　数10万世帯停滞　カリフォルニア州1998年
寒波上回るかんきつ類農作物に被害も
携帯春の天王山(9437)NTTドコモ（191千円）(9433)KDDI（808千円）春商戦モデル発
表(9984)ソフトバンク（2460円）は今月下旬に（産経新聞）
ネットバンキング　3メガ銀　狙いは中小　取引先開拓
(2211)不二家（199円）下値は117円か　4割安の水準　市場「下落続く」PBR1倍の水
準が下値と
米大手投信会社バンガード・グループ(8253)クレディセゾン（4470円）と提携　日本
で投信販売　投信でも価格破壊？（日経金融新聞）
(9613)NTTデータ（609千円）ソフト委託開発加速　海外技術者3000人体制　ベトナム
拡充
政府、利上げ容認へ　日銀の判断尊重　議決延期請求せず　　　　　　　　　　　　
　　　　　　　　　　　　　（日刊工業新聞）
(6501)日立（795円）微弱電波使う病院情報システム開発　患者の脈拍無線で把握
液晶部材　軒並み安に　パネル各社の下げ圧力強く
(6330)東洋エンジニアリング（507円）(8031)三井物産（1707円）と連携強化　交通
や発電プラント　人事交流を加速(9602)東宝（2270円）映画業界で一人勝ち　作らず
稼ぐ必勝方程式　外部企画　上手に料理　　　　　　　　　（日経産業新聞）
第三者割当　(8798)アドバンスクリエイト（74000円）　　8000株　7万5147円　2/1
割当先　あいおい損保

（今日の一言）
米国株式市場はダウが続伸し、過去最高値で引けた。発表が本格化する四半期決算に
対し、明るい見通しが広がっている。
一方、ナスダックは小幅安となった。
インテルの決算が引け後発表されました。
減収減益となり、1-3月荒利が会社予想が市場予想を下回り時間外で下落に。
東京市場も揉み合いの中出遅れや新材料物色になりそうな状況も！？
(8046)丸藤シートパイル（308円）今話題の物産（1707円）系で3月1本配当8円
欧州、電子証券取引ラッシュ　金融機関主導で3構想　主要証券取引所も対抗策で(86
04)野村HD（2290円）買収のインスティネット注目
米一転大寒波　暖冬と思ったら41人死亡　数10万世帯停滞　本日は原油価格は下落し
ておりますがそろそろとも！？
(1605)国際帝石（921000円）(1662)石油資源開発（6850円）・・・
Posted in コロの朝 | No Comments »

RE:22368 株の銘柄コードを取り出すマクロ

山紫水明 さん　07/01/17 21:33

　emc827さん，

>株の銘柄コード（4桁固定）を取り出すマクロを教えてください。

　次のマクロでいかがでしょう。

//--------------------------------------------------------//
disabledraw;
gofiletop;
while( 1 ) {
searchdown2 "(?<=\\()[0-9]{4}(?=\\))", regular;
if( !result ) break;
$brand[#i] = gettext( foundtopx, foundtopy, foundendx, foundendy );
moveto foundendx, foundendy;
#i = #i + 1;
}
newfile;
while( #j < #i ) {
insert $brand[#j] + "\n";
#j = #j + 1;
}
endmacro;
//--------------------------------------------------------//

　では，　(^^)/~
山紫水明（ユーザー）
SANSHISUIMEI

RE:22370 これで十分です

emc827 さん　07/01/18 03:14

山紫水明　様

これでミスも無く、大変楽になりました。
感謝しています。
ありがとう御座いました。

RE:22370 1/18　コロの朝　銘柄コードを取

emc827 さん　07/01/18 12:15

コロの朝　http://www.koronoasa.com/blog/
1/17　銘柄コード　取得できました。
1/18　取得できませんでした。
書き方が、昨日と少し違っています。

すみませんが、よろしくお願いします。

　

RE:22374 1/18　コロの朝　銘柄コードを取

秀丸担当 さん　07/01/18 15:17

試しにやってみましたが、ちゃんとできているように思います。
どのような手順で行い、どのような結果となるのか具体的に書いていただけると
何かわかるかもしれないです。

RE:22376 ありがとう御座います。

emc827 さん　07/01/18 18:02

1/18　8:30頃　コロの朝　http://www.koronoasa.com/blog/
例えば、(4188)三菱ケミカル
4188：urlを呼び出す形式になっていませんでした。
現在：urlを呼び出す形式になっています。
作者は、株が始まる9:00までに　urlを呼び出す形式にする時間が無かったため、省
略したものと思います。
9:00前に、情報を提供しないと、意味がないためです。

依頼事項：
urlを呼び出す形式でなくても、銘柄コードを抽出できるように、出来ないでしょうか。

----------------------------------------------------------------------
日銀決定会合ネットマネー！源太氏執筆！
2007年 1月 18日木曜日 7:37:06 am仏滅 [二十九日月] 潮汐:大潮 by コロ

2007年　1月 18日（木）春の陽気

NY株式　ダウ　12,577.15ドル　-5.44　　　　NDQ　2,479.42ポイント　-18.36　
CME225　　17,235.0円　（大証先物比　-35円）
(4188)三菱ケミカル（772円）子会社三菱ウェルファーマと(4508)田辺薬（1628円）
合併へ　今秋国内6位に
(9205)日航（249円）遠い抜本改革　国際線再編など発表　コスト削減　力不足
(8703)カブドットコム証券（20万円）指値自動変動　きめ細かい取引可能に
利上げ是非　日銀きょう結論　消費・物価判断難しく
エアバス　首位陥落　受注シェア　ボーイングが逆転　中型機出遅れ響く
日経平均先物が大商い「ミニ」最高　参加者増　相場の振幅増す
(8058)三菱商事（2150円）韓国ポスコに追加出資　投資150億円　1.4％保有に　　　
　　　　（日本経済新聞）
以下省略

RE:22376 追伸：　手順

emc827 さん　07/01/18 18:07

コロの朝　をcopyして、秀丸に貼り付けます。
それをマクロに掛けます。
見かけ上、秀丸画面は　URL有る/無し　同じです。

RE:22382 追伸：　手順

秀丸担当 さん　07/01/18 18:39

>例えば、(4188)三菱ケミカル
>4188：urlを呼び出す形式になっていませんでした。
>現在：urlを呼び出す形式になっています。

ということは現在はできているということでしょうか。

>コロの朝　をcopyして、秀丸に貼り付けます。
>それをマクロに掛けます。
>見かけ上、秀丸画面は　URL有る/無し　同じです。

ブラウザ上でのリンクの有り無しは、秀丸には全く関係ありません。
おそらく8:30には「(0123)」という書き方とは違うものになっていたのでしょう。
括弧が全角だったとか、括弧との間に空白があったとか。
それはもはや分かりませんね。

RE:22382 追伸：　手順

山紫水明 さん　07/01/18 20:43

　emc827さん，

>見かけ上、秀丸画面は　URL有る/無し　同じです。

全角と半角の括弧が混在しているようですね。
次のマクロでやってみてください。

//--------------------------------------------------------//
disabledraw;
gofiletop;
while( 1 ) {
searchdown2 "[(（][0-9]{4}[\\)）]", regular;
if( !result ) break;
$brand[#i] = gettext( foundtopx, foundtopy, foundendx, foundendy );
moveto foundendx, foundendy;
#i = #i + 1;
}
newfile;
while( #j < #i ) {
insert $brand[#j] + "\n";
#j = #j + 1;
}
replaceallfast "[()（）]", "", regular;
endmacro;
//--------------------------------------------------------//

　では，　(^^)/~
山紫水明
SANSHISUIMEI

RE:22384 回答です

emc827 さん　07/01/18 21:47

>ということは現在はできているということでしょうか。
はい。URL形式はokです。

>>コロの朝　をcopyして、秀丸に貼り付けます。
>>それをマクロに掛けます。
>>見かけ上、秀丸画面は　URL有る/無し　同じです。
>
>ブラウザ上でのリンクの有り無しは、秀丸には全く関係ありません。
>おそらく8:30には「(0123)」という書き方とは違うものになっていたのでしょう。
>括弧が全角だったとか、括弧との間に空白があったとか。
>それはもはや分かりませんね。

括弧が全角半角混在の可能性があります。
結果を報告します。

RE:22389 ありがとう御座います

emc827 さん　07/01/18 21:50

>全角と半角の括弧が混在しているようですね。
>次のマクロでやってみてください。

混在形式が出ましたら、結果を報告します。
しばらく時間をください。

RE:22389 一旦closeします

emc827 さん　07/01/23 15:31

その後、コロの朝　URL無し　の表示がなかなか出ません。
何時出るか分かりません。
一旦このスレッドをcloseします。
何かあれば、全て半角に変換して、このマクロに掛けてみます。
ありがとう御座いました。

RE:22441 一旦closeします

山紫水明 さん　07/01/23 17:38

　emc827さん，

>その後、コロの朝　URL無し　の表示がなかなか出ません。
>何時出るか分かりません。

　マクロはURL有る無しに関係なく皆拾います。

>何かあれば、全て半角に変換して、このマクロに掛けてみます。

　半角に変換する必要もありません。
　要するに括弧の半角全角に関係なく，括弧でくくられた４桁の数字を全部検
出します。

ただし，マクロの４行目
searchdown2 "[(（][0-9]{4}[\\)）]", regular;
は
searchdown2 "[(（][0-9]{4}[)）]", regular;
でいいです。そのままでもいいですが，余分なものを消し忘れていました。

　では，　(^^)/~
山紫水明
SANSHISUIMEI