ばやおのふぉとろぐβ

しょうもない写真ばかりなので常にβ版のふぉとろぐです。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。


web拍手 by FC2 にほんブログ村 写真ブログへ

Test

ぜろくら


とりあえずテストかきこみ。

web拍手 by FC2 にほんブログ村 写真ブログへ
関連記事
スポンサーサイト

ぶろぐはじめました。

はじめましてこんばんは。
お久しぶりな方はおひさしぶり。やっとかめだなも。
久々に日記的な何かをまた書いてみようかなと思って始めてみました(唐突
何か主張したいことがあるとかそんなんじゃないんで、
とりあえずだらだらと、たまに更新するつもりです。
このご時世、Blogなんて無数にあるわけだし、
僕が適当に情報発信したところで誰も目に留めないだろうけど、
宜しくお願いしますよっと。

ちなみに、僕が日記系の何かをやるのはこれで7種類目くらいです、たぶん。
でも、文才があるとかそんなんじゃないです、残念ながら。
GREEが使いにくくなってしまったので、FC2へ逃げてきたのが本音かもしれませんw
今後書く内容は今までどおりですが、
行ってみたとか買ってみたとか食べてみたとか
そういう非常にくだらない内容をお届けできると思います。

たぶん、飽きるまで書くよ!
毎日は書かないと思うけどね!(笑


web拍手 by FC2 にほんブログ村 写真ブログへ
関連記事

GREEDiaryDownLoader

半年くらい前にGREEの設計が大幅な変更になりました。
それがすごく使いづらくなってしまってて、操作も重たいものだから、
GREEをあんまり開かなくなっていました、ごめんなさい。

んで、他のBlog使おうと思ったんだけど、
GREEは過去に書いた日記をエクスポートする機能がありませんでした。
さらに、GREEはよそのBlogを登録すると、過去の日記が全て消えてしまう素敵仕様でしたw
全ての日記をいちいち手作業でコピペして保存するとかめんどくさすぎてできないし、
かといって全部消してしまうのも忍びないので、
ExcelのVBAでしょーもないプログラム書いてみました。
プロのプログラマさんとかから見たらこんなのプログラムなんて呼べないのかもしれないけどね(笑
強引にごりごり処理させていますw
でも昔の日記を全部Excelの表に保存することができたよ
処理にすんごい時間かかったけど;


以下ソースw

Sub GREEDiaryDownLoader()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")

Dim NextURL As Variant
NextURL = "http://gree.jp/bayao/blog/entry/17640460" '一番初めの日記のURL
Dim GreeName As Variant
GreeName = "ばやお" 'GREE登録名
Dim TitleMemo As Variant

Dim a As Long
a = 2
Dim b As Integer
Dim i As Variant
Dim ii As Long

With objIE
.Visible = False
Do
.navigate NextURL
With objIE
While .ReadyState <> 4 Or .Busy = True
DoEvents
Wend
End With
b = 4
With .document
For Each i In .all
'タイトル
If i.tagName = "H1" Then
If i.innerText <> GreeName Then
If TitleMemo = i.innerText Then Exit Do
TitleMemo = i.innerText
Cells(a, "A") = TitleMemo
End If
End If

'時間
If i.ID = "" And i.tagName = "DIV" And i.innerHTML Like "*timestamp*" Then
If i.innerText Like "*もっと見る・探す*" Then
Else
Cells(a, "B") = Left(i.innerText, WorksheetFunction.Find("・", i.innerText) - 1)
End If
End If

'本文
If i.ID = "" And i.tagName = "DIV" And i.innerHTML Like "*DIV class=content sizcache=*" Then
If i.innerText Like "*もっと見る・探す*" Or i.innerText Like "*コメントを書く閉じる*" Then
Else
Cells(a, "C") = i.innerText
End If
End If

'コメント
If i.tagName = "LI" And i.innerHTML Like "*sizcache=*" And i.ID Like "comment-item-urn:gree:blog:*" Then
If i.innerText Like "*もっと見る・探す*" Then
Else
Cells(a, b) = i.innerText
b = b + 1
End If
End If
Next i
'次の日記のURLを取得
For Each i In .Links
If StrConv(i.innerText, vbUnicode) Like "*サ*" Then
NextURL = i.href
End If
Next i
End With
a = a + 1
Loop
.Quit
End With
Set objIE = Nothing
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

もっと効率よく作業させることってできるんかいね?w

web拍手 by FC2 にほんブログ村 写真ブログへ
関連記事

先週末のお話。

フォトログを名乗るんだから写真載せないとね!(笑
というわけで、先週末にぶらぶらしたときのお話。

先週末は、車でぶらっと高山~白骨温泉~青木湖ツアーをしてきました。
ばやおツーリストの旅行は美味しいものと温泉だけは欠かしませんw
ちなみに、白骨温泉ツアーは比較的高頻度で行っているようです(笑

それはさておき、今回は晴天に恵まれましたので、
写真を撮るにもなかなかの好条件でございました。
んでこの写真。

湖畔

がんばって撮った、、んだけど、
センサー汚れすぎなのもいいかげんにしろよって感じでした(死
でも、とにかく綺麗だったよー。
場所は乗鞍高原へあがっていく途中の大野川中学校付近です。
風も穏やかで湖面に映る景色が良い感じだったので、
NDと三脚使って長時間露光に挑戦w
そういう意味では良い感じにいったんじゃないかなっと。
他にも良い感じの写真は撮れたのでそれはまた明日以降にでもうpするですよ

続きを読む



web拍手 by FC2 にほんブログ村 写真ブログへ
関連記事

テーマ : 風景写真
ジャンル : 写真

アルバム

プロフィール

ばやお

Author:ばやお
音楽と写真とおいしいものが
大好きなばいきんまんです。
Irisでオーラアコやってます。
御陰様でBlog歴10年超えです。
レタッチは滅多にしないです。

GANREFアルバム
お気に入りのものを纏めてます。

ランキングやってみる。
にほんブログ村 写真ブログへ
にほんブログ村

Basic Calendar
<03 | 2010/04 | 05>
Sun Mon Tue Wed Thu Fri Sat
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -
最近の記事+コメント
月別
カテゴリ
FC2拍手ランキング
拍手いただいた記事がランキングに反映されるようになりました。
過去の記事でも良い写真があったら拍手頂ければ幸いです。
最新トラックバック
経県値
詳細
全記事表示リンク

全ての記事を表示する

Select Template
FC2ブックマーク
複眼RSS
FC2カウンター
Twitter

@B_BAYAO < > Reload

Twilog
ask.fm
RSSリンクの表示
検索フォーム
ブロとも申請フォーム

この人とブロともになる

Tree-LINK


QRコード
QR
アクセスランキング
[ジャンルランキング]
写真
1502位
アクセスランキングを見る>>

[サブジャンルランキング]
その他
539位
アクセスランキングを見る>>
EASY LINK BY FC2-ID 2
FC2 IDを入力してください。
R34
JavaScriptを有効にしてください。
健康BMI
ajaxblogparts
フリーエリア
アンパンマン
忍者?


にほんブログ村
                                                                                                                                                                                                                                                           
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。