Java トレーリングゼロ

仕事上のメモです。

数値を前方0、後方0を排除するJavaソース

------------------------------------------------------
public static String formatTrailingZero(String str) throws Exception {

// 後方ゼロ排除
int x = str.length() - 1;

while( x > 0 && str.charAt(x) == '0'){
x--;
}
str = str.substring(0, x+1);


// 前方ゼロ排除
x = 0;

while( x <str.length() && str.charAt(x) == '0') { }
str = str.substring(x, str.length());


// 例15.0の場合は、15.となっているので小数点を排除
if (str.substring(str.length()-1).equals(".")){
str = str.substring(0, str.length()-1);
}

// 0.0の場合、何も残らないので0で出力
if (str.equals("")) str = "0";

return str;
}

YOSHIKI＆車

ロールスロイス、レクサス、フェラーリ、ベンツ、ベントレーなど数々の高級車を保有してきたYOSHIKI。

東京ドーム公演に行ったときに青山辺りでたまたま見たマセラティを見て、『マセラティ、YOSHIKIに乗って欲しい！！』と勝手に思ってたんですけど、遂にやっちゃいましたYOSHIKIさん！！最安価格1000万円の超高級イタリア車です！！個人的にはクアトロポルテ（日本語に訳すると4つのドア）ってシリーズが好きなんですけど写真見る限りはクーペタイプ（2ドア）？

いやぁやっぱり凄いねYOSHIKI、ハンパない！！


※08:10追記
会社で調べてみると、Granturismoっていうシリーズのやはりクーペでした。
http://www.maseratidealers.com/cornesshowrooms/granturismo_cars.php

World Premium Live

先日から自分がハマっていたBS-hiの番組「World Premium Live」ですが、
自分がたまたま先週火曜のマライアと木曜のサラ・ブライトマン見て、
毎日あってるもんだと思ってたけど、実は先週がたまたまスペシャルウィークだったようで、
大物アーティストのライブを毎日放送されていただけでした・・・残念。。

本来は毎週日曜の夜中にある番組らしくて・・・
今後自分が楽しみにしているライブは、06/28放送予定のアラニス・モリセットのライブと、07/05放送予定のP!NKのライブ♪

先週みたいに凄いアーティストがずっとあってればいいのになぁと思う今日この頃でした。。。
番組最後のクリスペプラーっていうオッサンの喋りウザい。。音楽のことわかってない。それに対しレナっていう女性は若いのに意外とよくわかってるコメントをしてくるので好感持てます♪MCはレナさんだけで十分やろ。。

番組Webサイトはコチラ
http://www.nhk.or.jp/wplive/



全然関係ないけど、今日のめざましTVの岡本玲ちゃんマジかわいかった。。。録画したかったなぁ・・・イマドキ娘は年々全体的なレベルが落ちてきている中で、昨年度からは岡本玲ちゃんと佐藤ありさちゃんが自分の中ではお気に入りです♪

Blue Sky Heaven着うた、朝の通勤中に取りました♪YOSHIKIに関する放送があってるであろう時刻に・・・(^^;　やっぱ携帯替えてワンセグ付けるべきか・・・K002が一番いいと思うけど、折りたたみなので、サブディスプレイはほしかったし、せっかく最薄なんだからもう少し軽くなれば絶対買うけどなぁ・・・

65536行を超えるCSVファイルをEXCELに取り込むVBA

仕事上のメモです。

EXCELの最大行数は65536であり、「外部データの取り込み」を使用しても65536行を超えるファイルは読み込むことができない。また読み込み開始行を取り込みウィザード内で指定できるが、1～32767行までしか指定できない。
これでは使いものにならないので、自作にてVBAを作成し、65536行以上のファイル（今回はCSVファイル）をシートへ可能な限り読み込むようにした。

下記は、そのソース。動作保障はしない。

------------------------------------------------------------------
Sub Macro1()
'
' Macro1 Macro
' マクロ記録日 : 2009/6/17 ユーザー名 : k
'
'

Dim strInputFileName As String ' 入力ファイル名保管用
Dim iStartIndex As Long ' データ取り込み開始行保管用
Dim iNowIndex As Long ' 読み込み中の行
Dim iReadRows As Long ' 読み込み済みの行数
Dim strData ' 1行ごとのデータ

Set fs = CreateObject("Scripting.FileSystemObject")
strInputFileName = Application.GetOpenFilename("テキスト ファイル (*.txt;*.csv), *.txt;*.csv")
If strInputFileName = "False" Then
Exit Sub
End If

iStartIndex = Application.InputBox("取り込み開始行を入力してください", , 1, , , , , 1)


ActiveWorkbook.Worksheets.Add

' 全セル文字列に設定
Cells.Select
Selection.NumberFormatLocal = "@"


iNowIndex = 0
iReadRows = 0
Open strInputFileName For Input Access Read As #1
While Not EOF(1)

Line Input #1, strReadLine
iNowIndex = iNowIndex + 1
If iNowIndex >= iStartIndex Then

iReadRows = iReadRows + 1

strData = Split(strReadLine, ",")

ActiveSheet.Cells(iReadRows, 1).Resize(1, UBound(strData) + 1).Value = strData

If iReadRows >= 65536 Then
MsgBox ("Excelの読み込み可能最大行数65536を超えました。")
GoTo finally
End If

End If
Wend

finally:

' CSVを閉じる
Close #1
End Sub

サラ・ブライトマン ライブ♪

おとといのマライアに引き続き、今日はサラ・ブライトマンのライブがNHK BS-hiで放送されてます♪

YOSHIKIともつながりのあるサラですけど、疲れてる時に聞くと凄く癒されます♪エンヤは退屈過ぎるのでサラくらいがちょうどいいか少し退屈くらいです笑〃
しかしバックのオーケストラ、美人さんが多い！！女優クラスが勢揃いです！！
カウンターテナーのフェルナンド・リマっつー人、声たかっ！！

この時間のライブはいいやつが多いっす♪来週は誰のライブかWebでチェックせねば！！

マライアライブ♪

今NHK BS-hiでマライアのライブが放送されてます♪
久しぶりにマライア聴いて懐かしかった♪やっぱりアメリカの音楽業界は凄いなぁーと思います！日本の音楽番組は音楽に関係ないことで時間使うし、純粋な音楽の楽しみ方じゃないと思ってます。それ以前に感動する音楽が少ないです…

コラボとかアメリカの真似してやってるけど、アメリカと日本のコラボの違いは、アメリカではソロでも凄く歌が上手くてやっていける人同士でやるから凄いことになるけど、日本は二人合わせて何とかって感じだし、話題性だけで終わってしまうことが多いと思います。
もっと本来の音楽の楽しみ方でやって欲しい♪


マライアはライブでは高音の出し惜しみすることが多いですけど今日のライブは長いこともあってか、ちょいちょい高音使ってきます♪予想だにしない部分からいきなり高音で歌うときとかは鳥肌もんです！！
Ｘファンのくせに言うのもアレだけどTOSHIの声なんて比べもんになりません…TOSHIにはシャウトもいいけど初心に返って声楽を勉強して欲しいです。。


マライアのライブのドラマーが使ってるシンバル、穴が空いてて初めて見たシンバルです♪凄く軽い音が出るみたぃです～YOSHIKIにも使って欲しいかも↑↑

京都で捻挫てありえんやろ！！

今日YOSHIKIが京都の書店に二ヶ所行ったんですけど、二軒目の書店でファンにもみくちゃにされてYOSHIKIが右手の指を捻挫したって！！
考えられん！！マジでありえん！！

ファンはYOSHIKIに怪我させて何やってんだょ！！
ライブ後でYOSHIKI弱ってるってわかってんだろーに……
ちょー本気でありえなさすぎ！！だいたいSPがしっかり守らんかぃ！！

たぁみねぇた3

昨日、日曜洋画劇場でターミネータ3やってましたね♪おとといの土曜日にムービープラスであったばっかだったけど途中まで見てしまいました♪

やっぱし翻訳されるとニュアンスが変わったり、シーンがカットされたりしててがっかりするもんすね～2日続けて見たので違いがよくわかりました。。

XJAPANのTBSチャンネルで放送された無敵の夜とかも結構カット入ってるらしいです。。自分はまだブルーレイ買ってないので来月のやつでまとめて見ようと思ってます♪

やっぱし映画にしてもライブにしてもノーカットで見たいっす♪

ROOKIES初日に見た♪

土曜日、映画ROOKIESの公開日だったので見に行って来ました！！

ドラマも最初から見てて凄く大好きだったんで前売り券買って初日に見ました♪
感想はやっぱり最高！！感動しました！！この手のドラマが映画化になると、がっかりさせられるものが多いですけど、ROOKIESは違いましたね！！
新メンバーもしっかり馴染んでキャラ確立してましたし、ドラマと同じく感動を味わえました♪

早くも100万人動員したらしいですね！！ドラマ見てないと話がわからない部分もあるんで、ドラマを予習してから映画見ることをオススメします！！