2009年1月アーカイブ

    For intRowCount = intStartRow To intMaxRow
        For intColumnCount = intStartColumn To intMaxColumn - 1
            Print #intFileNum, Cells(intRowCount, intColumnCount);
            Print #intFileNum, Chr(9);
        Next
        Write #intFileNum, Cells(intRowCount, intMaxColumn)
    Next

audio open error
Unknown PCM default

-<console>  0600 <sound>      0600 root
+<console>  0660 <sound>      0600 root.audio

#========================
# インターフェイス構成
#========================
pushd interface

reset all


popd
# インターフェイス構成の最後



# ---------------------------------- 
# インターフェイス IP 構成         
# ---------------------------------- 
pushd interface ip


# "ローカル エリア接続" のインターフェイス IP 構成

set address name = "ローカル エリア接続" source = dhcp 
set dns name = "ローカル エリア接続" source = dhcp
set wins name = "ローカル エリア接続" source = dhcp


popd
# インターフェイス IP 構成の最後

#========================
# インターフェイス構成
#========================
pushd interface

reset all


popd
# インターフェイス構成の最後



# ---------------------------------- 
# インターフェイス IP 構成         
# ---------------------------------- 
pushd interface ip


# "ローカル エリア接続" のインターフェイス IP 構成

set address name = "ローカル エリア接続" source = static addr = 192.0.2.10 mask = 255.255.255.0
set address name = "ローカル エリア接続" gateway = 192.0.2.1 gwmetric = 1
set dns name = "ローカル エリア接続" source = static addr = 192.0.2.2
add dns name = "ローカル エリア接続" addr = 192.0.2.3
set wins name = "ローカル エリア接続" source = static addr = none


popd
# インターフェイス IP 構成の最後

J-HITSミュージックビデオ	http://streaming.yahoo.co.jp/p/t/00117/v00261/
ANN（テレビ朝日系）主要ニュース	http://streaming.yahoo.co.jp/newsflash/list/ann/imp/photo/	1

ソース

ypplay.pl

#!/usr/bin/perl
# yvplay.pl Rev.1.3
# Copyright (c) YAMAGISHI Norimasa nor@rally.or.jp
# http://rally.jp/comp/

use LWP::Simple;

$IE='"C:\Program Files\Internet Explorer\IEXPLORE.EXE"';

$SRC_FILE='yvplay.dat';

open SRC_FILE, "<$SRC_FILE";
while(<SRC_FILE>) {
    chop;
    push(@URLS, $_);
}

for ($i = 1; $i < 10; $i++) {
    @tmp_list = grep(/\t$i$/, @URLS);
    while ( @tmp_list ) {
        push(@play_list, splice(@tmp_list , rand @tmp_list , 1));
    }
}

@play_list = (@play_list, grep(!/\t\d$/, @URLS));

while(@play_list) {
    $item =  shift(@play_list);
    if ($item =~ /^$/) {next;};
    if ($item =~ /^#.*/) {next;};
    ($item_title, $item_url, $priority) = split /\t/, $item, 3;
    print STDERR "Now playing ";
    if (!($item_title =~ /^$/)) {
	print STDERR $item_title . " ";
	}
    print STDERR $item_url . "\n";
    $play_url = &get_play_url($item_url);
    print STDERR "player url = [" . $play_url . "]\n\n";
    $cmd_line = $IE . " \"" . $play_url . "\"";
    system $cmd_line;
}
print STDERR "## All list up items are END ##\n";

sub get_play_url {
    my($item_url)=@_;
    my $src_html, @lines_html, $line, $play_url;

    $src_html=get($item_url);
    @lines_html = split(/\n/,$src_html);

    foreach $line (@lines_html) {
	$line =~ s/\\//g;
        if ($line =~ /document\.write\([\'\"]<a href=\"#\"/) {
	    chop;
            $line =~ s/^.*onClick="wo\('//;
            $line =~ s/'.*$//;
	    $play_url = $line;
	    last;
	}
    }
    return $play_url;
}

;; 基本設定
(setq migemo-command "cmigemo")
(setq migemo-options '("-q" "--emacs"))
;; migemo-dict のパスを指定
(setq migemo-dictionary "c:/usr/lib/cmigemo/dict/migemo-dict")
(setq migemo-user-dictionary nil)
(setq migemo-regex-dictionary nil)

;; キャッシュ機能を利用する
(setq migemo-use-pattern-alist t)
(setq migemo-use-frequent-pattern-alist t)
(setq migemo-pattern-alist-length 1024)
;; 辞書の文字コードを指定．
(setq migemo-coding-system 'euc-jp-unix)

(load-library "migemo")
;; 起動時に初期化も行う(なくても可)
(migemo-init)

(eval-after-load "japan-util"
  '(progn
     (put-char-code-property ?ー 'jisx0201 ?ｰ)
     (put-char-code-property ?ー 'ascii nil)
     (put-char-code-property ?ｰ 'jisx0208 ?ー)
     (put-char-code-property ?ｰ 'ascii nil)
     (put-char-code-property ?～ 'ascii nil)
     (put-char-code-property ?、 'ascii nil)
     (put-char-code-property ?。 'ascii nil)
     (put-char-code-property ?， 'jisx0208 ?,)
     (put-char-code-property ?． 'jisx0208 ?.)
))

1. Googleカレンダーでは、通知のデフォルト設定を「モバイル」にする。
2. Googleカレンダーからの通知メールはSubjectが「[通知]」で始まるので、携帯にはtodoフォルダを作り、「[通知]」で始まるメールを振り分けるようにする。
3. PCからtodoを登録したいときには、「[通知]」で始まるメールを携帯にに送信するようにする。

<title><$MTBlogName encode_html="1"$><MTIf name="tempName" ne="index_main"> - <$MTGetVar name="page_title"$></MTIf></title>

<title><MTIf name="tempName" ne="index_main"><$MTGetVar name="page_title"$> - </MTIf><$MTBlogName encode_html="1"$></title>