今日は、玲奈さんの朗読劇『ラブ・レターズ』を観てきました。
前回のシアターコクーンでの、チェーホフの『櫻の園』も端の方でしたが、前から２列目、今回はど真ん中で前から２列目という、ファンクラブの先行予約の引きが強くて良かったです。
手紙のやり取りを読むだけの朗読劇でしたが、最後は演者の二人とも涙を流すほど入り込んでいて、見ごたえがありました。
- 前ページ
- 次ページ
ツイッター：@yamapu2014
Instagram：iwgpjr2017
Facebook： https://www.facebook.com/profile.php?id=100004499415397
LINE：iwgpjr2014
お友だちになってくれる方は、上記のどれかから連絡ください。
こちらの身勝手な評価をクリアしたら、お友だちになりましょう☺
| 株式会社リクルートオフィスサポート | 一般事務 | １８～２５万 | 9:00～17:32 フレックス | 勝どき | 61分 | 6分 | なし |
| 株式会社インターネットイニシアティブ | 事務スタッフ | １８～２２万 | 9:00～17:30 | 飯田橋 | 50分 | 8分 | なし |
| NECネッツエスアイ株式会社 | 一般事務 総合事務 | 15.75～２８万 | 8:30～17:15 | 飯田橋 | 50分 | 4分 | なし |
| 日本コカコーラ株式会社 | ｱﾄﾞﾐﾆｽﾄﾚｰﾃｨﾌﾞ ・ｱｼｽﾀﾝﾄ | ２４万 | 9:00～17:15 フレックス | 六本木 六本木一丁目 | 48分 60分(乗換10分) | 11分 3分 | なし １回 |
| 株式会社ヤクルト本社 | 事務職 | 17.55～２６万 | 9:00～17:30 | 汐留 | 58分 | 4分 | なし |
| ディップ株式会社 | 一般事務 | 19.2～33.5万 | 9:30～18:30 | 六本木 六本木一丁目 | 48分 60分(乗換10分) | 11分 3分 | なし １回 |
| 株式会社帝国データバンク | 一般事務 | 18.325～29.32万 | 9:00～18:00 | 青山一丁目 | 44分 | 3分 | なし |
| 東電タウンプランニング株式会社 | 事務職 | 16.3～33.6万 | 9:00～17:40 8:40～17:20 F | 春日 | 52分 | 8分 | なし |
| 株式会社クレディセゾン | 総合職 | 16.5～23.7万 | 9:00～17:45 9:45～18:30 | 池袋 | 12分 | 8分 | なし |
| 株式会社リクルートオフィスサポート |
| 株式会社インターネットイニシアティブ |
| NECネッツエスアイ株式会社 |
| 日本コカコーラ株式会社 |
| 株式会社ヤクルト本社 |
| ディップ株式会社 |
| 株式会社帝国データバンク |
| 東電タウンプランニング株式会社 |
| 株式会社クレディセゾン |
'*******************************************************************************
' フォルダ単位のサブ処理(再帰動作,引数はFile-Object,行,カラム)
'*******************************************************************************
Private Sub SEARCH_SUB_FOLDER(ByVal objPATH As Object, ByRef GYO As Long, ByVal COL As Long)
Dim objPATH2 As Folder
Dim objFILE As File
Dim FSO As Variant, SHell As Variant, Folder As Variant
Dim Songs As Variant, i As Long, Target As String
' 現在フォルダをシート上に表示
g_cntPATH = g_cntPATH + 1 ' 参照フォルダ数を加算
GYO = GYO + 1 ' 行を加算
COL = COL + 1 ' カラムを加算
Cells(GYO, COL).Value = objPATH.Name
' ■先ずサブフォルダを探索するループ処理
For Each objPATH2 In objPATH.SubFolders
' フォルダ単位のサブ処理(再帰呼び出し)
Call SEARCH_SUB_FOLDER(objPATH2, GYO, COL)
Next objPATH2
' ■本フォルダの各ファイルをシート上に表示するループ処理
COL = COL + 1 ' カラムを加算
For Each objFILE In objPATH.Files
g_cntFILE = g_cntFILE + 1 ' 参照ファイル数
GYO = GYO + 1 ' 行を加算
Set FSO = CreateObject("Scripting.FileSystemObject")
Set SHell = CreateObject("Shell.Application")
'objFILE.Nameは、ファイル名。フルパスで指定しないといけない？
Set Folder = SHell.Namespace(FSO.GetFile(objFILE).ParentFolder.Path)
With objFILE
' ファイル名+(最終更新日時+ファイルサイズ)
Cells(GYO, COL).Value = .Name
Namae = FSO.GetFile(objFILE).Name
For j = 2 To 40
Cells(GYO, COL + j) = Folder.GetDetailsOf(Folder.ParseName(Namae), j - 1)
Next
End With
Next objFILE
' 参照OBJECTを破棄
Set objPATH = Nothing
End Sub
Class Program
Shared Sub Main()
Dim shell As New ShellClass()
Dim f As Folder = shell.NameSpace("C:\")
For i As Integer = 0 To 9999 ' 9999は適当な大きな値
Dim name As String = f.GetDetailsOf(Nothing, i)
If Not String.IsNullOrEmpty(name)
Console.WriteLine("{0} : {1}", i, name)
End If
Next
End Sub
End Class
GetDetailsOfメソッドの第1パラメータでnull（VBの場合にはNothing）を指定しているところがポイントだ。
番号 ヘッダ・タイトル 番号 ヘッダ・タイトル
0 名前 19 トラック番号
1 サイズ 20 ジャンル
2 種類 21 長さ
3 更新日時 22 ビット レート
4 作成日時 23 保護
5 アクセス日時 24 カメラのモデル
6 属性 25 写真の撮影日
7 状態 26 大きさ
8 所有者 29 この回のタイトル
9 作成者 30 プログラムの説明
10 タイトル 32 オーディオ サンプル サイズ
11 表題 33 オーディオ サンプル レート
12 カテゴリ 34 チャンネル
13 ページ数 35 会社名
14 コメント 36 説明
15 著作権 37 ファイル バージョン
16 アーティスト 38 製品名
17 アルバムのタイトル 39 製品バージョン
18 年
プログレは、ウォークマンでシャッフルで聴くんじゃよくわかんないね。
派手な曲の後に、急に静かに始まったりするし。
プログレは、アルバム単位でアルバム内の順番で聴くべきなんでしょうね。
派手な曲の後に、急に静かに始まったりするし。
プログレは、アルバム単位でアルバム内の順番で聴くべきなんでしょうね。