• R/O
  • SSH
  • HTTPS

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javaandroidc++linuxc#objective-ccocoa誰得qtrubybathyscaphegamephpguicwindows翻訳pythonomegattwitterframeworkbtronarduinovb.net計画中(planning stage)directxpreviewertestゲームエンジンdom

練習用です。いろんなものがごちゃまぜです。


コミットメタ情報

リビジョン401 (tree)
日時2018-10-26 11:43:37
作者bellyoshi

ログメッセージ

変更サマリ

差分

--- SanbiNo10min/ConsoleApp1/Module1.vb (nonexistent)
+++ SanbiNo10min/ConsoleApp1/Module1.vb (revision 401)
@@ -0,0 +1,73 @@
1+Module Module1
2+
3+ Dim tslist As New Dictionary(Of String, TimeSpan)
4+
5+ Sub Main()
6+ Dim path = Utils.GetPath("result.csv")
7+ Using tfp As New FileIO.TextFieldParser(path, System.Text.Encoding.GetEncoding("shift_jis"))
8+ tfp.Delimiters = New String() {","}
9+
10+ Dim fields = tfp.ReadFields()
11+ While Not tfp.EndOfData
12+ Dim name = fields(0)
13+ Dim time = TimeSpan.Parse(fields(1))
14+ ' Console.WriteLine($"{name},{time.TotalSeconds }")
15+ tslist(name) = time
16+ fields = tfp.ReadFields()
17+ End While
18+ End Using
19+
20+ For i = 0 To tslist.Count - 1
21+ For j = i + 1 To tslist.Count - 1
22+ For k = j + 1 To tslist.Count - 1
23+ For l = k + 1 To tslist.Count - 1
24+ Dim pair = getPair(i, j, k, l)
25+ If Is10min(pair) Then
26+ PrintPair(pair)
27+ End If
28+ Next
29+
30+ Next
31+ Next
32+ Next
33+
34+ End Sub
35+
36+ Public Sub PrintPair(pair As Dictionary(Of String, TimeSpan))
37+ For Each p In pair
38+ Console.Write($" {p.Key },{p.Value},")
39+ Next
40+ Console.WriteLine($"{getTotalSeconds(pair)}")
41+ End Sub
42+
43+ Public Function getPair(ParamArray index As Integer()) As Dictionary(Of String, TimeSpan)
44+ Dim pair As New Dictionary(Of String, TimeSpan)
45+ For Each i In index
46+ Dim name = tslist.Keys(i)
47+ Dim ts = tslist(name)
48+ pair(name) = ts
49+ Next
50+ Return pair
51+ End Function
52+
53+ Public Function getTotalSeconds(pair As Dictionary(Of String, TimeSpan))
54+ Dim ts As New TimeSpan
55+ For Each p In pair
56+ ts += p.Value
57+ Next
58+ Return ts.TotalSeconds
59+ End Function
60+
61+ Public Function Is10min(pair As Dictionary(Of String, TimeSpan))
62+ Dim s = getTotalSeconds(pair)
63+
64+ 'If 10 * 60 - 2 <= s AndAlso s <= 10 * 60 Then
65+ If s = 600 Then
66+ Return True
67+ End If
68+ Return False
69+ End Function
70+
71+
72+
73+End Module
--- SanbiNo10min/ConsoleApp1/My Project/Application.Designer.vb (nonexistent)
+++ SanbiNo10min/ConsoleApp1/My Project/Application.Designer.vb (revision 401)
@@ -0,0 +1,13 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
--- SanbiNo10min/ConsoleApp1/My Project/AssemblyInfo.vb (nonexistent)
+++ SanbiNo10min/ConsoleApp1/My Project/AssemblyInfo.vb (revision 401)
@@ -0,0 +1,35 @@
1+Imports System
2+Imports System.Reflection
3+Imports System.Runtime.InteropServices
4+
5+' アセンブリに関する一般情報は以下の属性セットをとおして制御されます。
6+' アセンブリに関連付けられている情報を変更するには、
7+' これらの属性値を変更してください。
8+
9+' アセンブリ属性の値を確認します
10+
11+<Assembly: AssemblyTitle("ConsoleApp1")>
12+<Assembly: AssemblyDescription("")>
13+<Assembly: AssemblyCompany("")>
14+<Assembly: AssemblyProduct("ConsoleApp1")>
15+<Assembly: AssemblyCopyright("Copyright © 2018")>
16+<Assembly: AssemblyTrademark("")>
17+
18+<Assembly: ComVisible(False)>
19+
20+'このプロジェクトが COM に公開される場合、次の GUID が typelib の ID になります
21+<Assembly: Guid("bd5670c9-d835-4ae5-bfc9-5d65b44fda1b")>
22+
23+' アセンブリのバージョン情報は次の 4 つの値で構成されています:
24+'
25+' メジャー バージョン
26+' マイナー バージョン
27+' ビルド番号
28+' Revision
29+'
30+' すべての値を指定するか、次を使用してビルド番号とリビジョン番号を既定に設定できます
31+' 既定値にすることができます:
32+' <Assembly: AssemblyVersion("1.0.*")>
33+
34+<Assembly: AssemblyVersion("1.0.0.0")>
35+<Assembly: AssemblyFileVersion("1.0.0.0")>
--- SanbiNo10min/ConsoleApp1/My Project/Resources.Designer.vb (nonexistent)
+++ SanbiNo10min/ConsoleApp1/My Project/Resources.Designer.vb (revision 401)
@@ -0,0 +1,62 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My.Resources
16+
17+ 'This class was auto-generated by the StronglyTypedResourceBuilder
18+ 'class via a tool like ResGen or Visual Studio.
19+ 'To add or remove a member, edit your .ResX file then rerun ResGen
20+ 'with the /str option, or rebuild your VS project.
21+ '''<summary>
22+ ''' A strongly-typed resource class, for looking up localized strings, etc.
23+ '''</summary>
24+ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
25+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
26+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
27+ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
28+ Friend Module Resources
29+
30+ Private resourceMan As Global.System.Resources.ResourceManager
31+
32+ Private resourceCulture As Global.System.Globalization.CultureInfo
33+
34+ '''<summary>
35+ ''' Returns the cached ResourceManager instance used by this class.
36+ '''</summary>
37+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
38+ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
39+ Get
40+ If Object.ReferenceEquals(resourceMan, Nothing) Then
41+ Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ConsoleApp1.Resources", GetType(Resources).Assembly)
42+ resourceMan = temp
43+ End If
44+ Return resourceMan
45+ End Get
46+ End Property
47+
48+ '''<summary>
49+ ''' Overrides the current thread's CurrentUICulture property for all
50+ ''' resource lookups using this strongly typed resource class.
51+ '''</summary>
52+ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
53+ Friend Property Culture() As Global.System.Globalization.CultureInfo
54+ Get
55+ Return resourceCulture
56+ End Get
57+ Set(ByVal value As Global.System.Globalization.CultureInfo)
58+ resourceCulture = value
59+ End Set
60+ End Property
61+ End Module
62+End Namespace
--- SanbiNo10min/ConsoleApp1/My Project/Settings.Designer.vb (nonexistent)
+++ SanbiNo10min/ConsoleApp1/My Project/Settings.Designer.vb (revision 401)
@@ -0,0 +1,73 @@
1+'------------------------------------------------------------------------------
2+' <auto-generated>
3+' This code was generated by a tool.
4+' Runtime Version:4.0.30319.42000
5+'
6+' Changes to this file may cause incorrect behavior and will be lost if
7+' the code is regenerated.
8+' </auto-generated>
9+'------------------------------------------------------------------------------
10+
11+Option Strict On
12+Option Explicit On
13+
14+
15+Namespace My
16+
17+ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
18+ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
19+ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
20+ Partial Friend NotInheritable Class MySettings
21+ Inherits Global.System.Configuration.ApplicationSettingsBase
22+
23+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
24+
25+#Region "My.Settings Auto-Save Functionality"
26+#If _MyType = "WindowsForms" Then
27+ Private Shared addedHandler As Boolean
28+
29+ Private Shared addedHandlerLockObject As New Object
30+
31+ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
32+ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
33+ If My.Application.SaveMySettingsOnExit Then
34+ My.Settings.Save()
35+ End If
36+ End Sub
37+#End If
38+#End Region
39+
40+ Public Shared ReadOnly Property [Default]() As MySettings
41+ Get
42+
43+#If _MyType = "WindowsForms" Then
44+ If Not addedHandler Then
45+ SyncLock addedHandlerLockObject
46+ If Not addedHandler Then
47+ AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
48+ addedHandler = True
49+ End If
50+ End SyncLock
51+ End If
52+#End If
53+ Return defaultInstance
54+ End Get
55+ End Property
56+ End Class
57+End Namespace
58+
59+Namespace My
60+
61+ <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
62+ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
63+ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
64+ Friend Module MySettingsProperty
65+
66+ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
67+ Friend ReadOnly Property Settings() As Global.ConsoleApp1.My.MySettings
68+ Get
69+ Return Global.ConsoleApp1.My.MySettings.Default
70+ End Get
71+ End Property
72+ End Module
73+End Namespace
--- SanbiNo10min/ConsoleApp1/Utils.vb (nonexistent)
+++ SanbiNo10min/ConsoleApp1/Utils.vb (revision 401)
@@ -0,0 +1,19 @@
1+Public Class Utils
2+
3+
4+
5+ ''' <summary>
6+ ''' 実行exeのあるパスを取得
7+ ''' </summary>
8+ ''' <returns></returns>
9+ Public Shared Function GetRootPath() As String
10+ Dim myAssembly As System.Reflection.Assembly = System.Reflection.Assembly.GetEntryAssembly()
11+ Dim rootpath As String = System.IO.Path.GetDirectoryName(myAssembly.Location)
12+ Return rootpath
13+ End Function
14+
15+ Public Shared Function GetPath(ByVal filename As String) As String
16+ Return System.IO.Path.Combine(GetRootPath(), filename)
17+ End Function
18+
19+End Class
--- SanbiNo10min/ConsoleApp1/result.csv (nonexistent)
+++ SanbiNo10min/ConsoleApp1/result.csv (revision 401)
@@ -0,0 +1,151 @@
1+1.エホバとはどんな方か,0:02:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_001.mp3,エホバ
2+2.あなたの名はエホバ,0:02:56,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_002.mp3,エホバ
3+3.私たちの力,希望,確信,0:03:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_003.mp3,エホバ
4+4.「エホバは私の牧者」,0:03:47,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_004.mp3,エホバ
5+5.エホバは素晴らしい創造者,0:02:33,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_005.mp3,エホバ
6+6.エホバをたたえる,0:02:20,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_006.mp3,エホバ
7+7.エホバは私たちの力,0:03:20,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_007.mp3,エホバ
8+8.エホバは避難所,0:02:25,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_008.mp3,エホバ
9+9.エホバは王!,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_009.mp3,エホバ
10+10.私たちの神エホバを賛美しましょう!,0:01:50,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_010.mp3,エホバ
11+11.エホバを賛美せずにはいられない,0:02:40,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_011.mp3,エホバ
12+12.エホバは賛美を受けるにふさわしい方,0:02:12,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_012.mp3,エホバ
13+13.キリストは私たちの手本,0:01:47,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_013.mp3,イエス
14+14.地球を治める新しい王をたたえる,0:02:00,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_014.mp3,イエス
15+15.神の初子を賛美しましょう,0:02:22,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_015.mp3,イエス
16+16.王を任命したヤハを賛美する,0:02:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_016.mp3,イエス
17+17.「そう望みます」,0:02:14,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_017.mp3,イエス
18+18.贖いに感謝する,0:02:37,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_018.mp3,イエス
19+19.主の晩餐,0:03:23,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_019.mp3,イエス
20+20.あなたは貴重な子を与えてくださった,0:02:57,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_020.mp3,イエス
21+21.神の王国をいつも第一にする,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_021.mp3,王国
22+22.王国は統治している 王国が来ますように!,0:02:42,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_022.mp3,王国
23+23.エホバは統治を始める,0:03:32,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_023.mp3,王国
24+24.エホバの山に登ろう,0:02:45,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_024.mp3,王国
25+25.特別な所有物,0:02:39,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_025.mp3,選ばれて
26+26.私にしたのです,0:04:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_026.mp3,選ばれて
27+27.神の子たちが明らかにされる,0:02:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_027.mp3,選ばれて
28+28.エホバの友となる,0:02:22,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_028.mp3,関係
29+29.エホバの証人として生きる,0:02:30,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_029.mp3,関係
30+30.私の父,私の神,私の友,0:02:38,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_030.mp3,関係
31+31.神と共に歩む,0:02:46,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_031.mp3,関係
32+32.エホバの側に立つ,0:03:35,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_032.mp3,関係
33+33.エホバに重荷を委ねる,0:03:02,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_033.mp3,関係
34+34.高潔さを捨てずに歩む,0:02:57,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_034.mp3,関係
35+35.「より重要なことを見極め」よう,0:02:40,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_035.mp3,関係
36+36.心を守る,0:02:21,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_036.mp3,関係
37+37.自分の全てを尽くしてエホバに仕える,0:02:06,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_037.mp3,関係
38+38.神はあなたを強い人にしてくださる,0:02:51,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_038.mp3,関係
39+39.神の前で良い名を得る,0:02:12,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_039.mp3,関係
40+40. 私たちは誰のものだろう,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_040.mp3,関係
41+41.どうか私の祈りを聞いてください,0:01:59,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_041.mp3,祈り
42+42.私たちの祈願,0:02:45,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_042.mp3,祈り
43+43.感謝の祈り,0:02:23,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_043.mp3,祈り
44+44.謙遜な人の祈り,0:02:34,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_044.mp3,祈り
45+45.心の黙想,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_045.mp3,祈り
46+46.エホバ,私たちは感謝します,0:02:46,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_046.mp3,祈り
47+47.日ごとにエホバに祈る,0:02:04,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_047.mp3,祈り
48+48.毎日エホバと共に歩む,0:02:39,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_048.mp3,献身
49+49.日々エホバに喜んでいただく,0:01:51,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_049.mp3,献身
50+50.私の献身の祈り,0:02:00,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_050.mp3,献身
51+51.私たちは神に献身しました!,0:02:26,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_051.mp3,献身
52+52.クリスチャンの献身,0:02:39,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_052.mp3,献身
53+53.奉仕に行こう,0:02:40,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_053.mp3,献身
54+54.「これが道である」,0:02:33,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_054.mp3,献身
55+55.恐れてはいけない!,0:03:01,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_055.mp3,献身
56+56.真理を生き方にする,0:03:06,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_056.mp3,献身
57+57.あらゆる人に伝道する,0:02:44,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_057.mp3,献身
58+58.平和を望む人を探す,0:02:58,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_058.mp3,献身
59+59.共にヤハを賛美しましょう,0:02:01,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_059.mp3,献身
60+60.命を意味する知らせ,0:02:32,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_060.mp3,献身
61+61.証人たちよ,進め!,0:02:21,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_061.mp3,献身
62+62.新しい歌,0:02:39,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_062.mp3,献身
63+63.私たちはエホバの証人,0:03:03,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_063.mp3,献身
64+64.喜んで収穫に参加する,0:01:40,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_064.mp3,献身
65+65.進歩し続けよう,0:02:08,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_065.mp3,献身
66+66.良い知らせを伝える,0:02:37,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_066.mp3,献身
67+67.「神の言葉を広めなさい」,0:02:05,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_067.mp3,献身
68+68.王国の種をまく,0:01:55,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_068.mp3,献身
69+69.王国を伝え続けましょう,0:02:08,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_069.mp3,献身
70+70.ふさわしい人を探そう,0:02:02,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_070.mp3,献身
71+71.私たちはエホバの軍勢!,0:03:01,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_071.mp3,献身
72+72.王国の真理を知らせる,0:01:58,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_072.mp3,献身
73+73.私たちに大胆さを与えてください,0:02:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_073.mp3,献身
74+74.王国の歌に加わろう,0:02:30,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_074.mp3,献身
75+75.「ここに私がおります! 私を遣わしてください!」,0:03:59,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_075.mp3,献身
76+76.どんな気持ち?,0:03:03,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_076.mp3,献身
77+77.闇に差す光,0:02:39,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_077.mp3,献身
78+78.「神の言葉を教え」よう,0:02:41,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_078.mp3,献身
79+79.しっかりと立つよう教える,0:02:56,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_079.mp3,献身
80+80.「エホバが善い神であること」を味わい知る,0:01:57,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_080.mp3,献身
81+81.開拓者の生き方,0:02:46,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_081.mp3,献身
82+82.「光を人々の前に輝かせなさい」,0:02:08,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_082.mp3,献身
83+83.「家から家へ」,0:02:20,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_083.mp3,献身
84+84.人々の力になろう,0:02:53,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_084.mp3,献身
85+85.互いを迎え入れましょう,0:02:12,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_085.mp3,献身
86+86.エホバの教えを受けましょう,0:02:01,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_086.mp3,献身
87+87.爽やかになれる場所,0:02:04,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_087.mp3,献身
88+88.あなたの道を教えてください,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_088.mp3,献身
89+89.聞いて従い,神の祝福を得る,0:02:38,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_089.mp3,献身
90+90.励まし合いましょう,0:02:57,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_090.mp3,献身
91+91.力を合わせて建てる,0:02:53,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_091.mp3,献身
92+92.あなたのお名前が付された場所,0:02:41,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_092.mp3,献身
93+93.集会を祝福してください,0:01:38,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_093.mp3,献身
94+94.神の言葉に感謝する,0:02:08,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_094.mp3,献身
95+95.光は明るさを増す,0:02:13,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_095.mp3,献身
96+96.神からの貴重な本,0:02:51,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_096.mp3,献身
97+97.神の言葉によって生きる,0:03:08,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_097.mp3,献身
98+98.聖書は神の言葉,0:01:54,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_098.mp3,献身
99+99.数え尽くせない仲間たち,0:02:16,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_099.mp3,献身
100+100.人をもてなす,0:02:12,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_100.mp3,献身
101+101.一致して共に働く,0:01:57,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_101.mp3,献身
102+102.「弱い人たちを援助」する,0:02:39,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_102.mp3,献身
103+103.牧者という贈り物,0:02:52,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_103.mp3,献身
104+104.神の聖なる力は贈り物,0:02:06,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_104.mp3,献身
105+105.「神は愛」,0:02:56,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_105.mp3,献身
106+106.愛を育む,0:02:04,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_106.mp3,献身
107+107.神の愛の模範,0:02:58,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_107.mp3,献身
108+108.神の揺るぎない愛,0:03:35,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_108.mp3,献身
109+109.心から熱烈に愛しましょう,0:01:52,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_109.mp3,献身
110+110.「エホバからの喜び」,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_110.mp3,献身
111+111.喜びはあふれる,0:02:20,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_111.mp3,献身
112+112.エホバは平和の神,0:02:17,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_112.mp3,献身
113+113.私たちの平和,0:02:30,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_113.mp3,献身
114+114.辛抱強さを示しましょう,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_114.mp3,献身
115+115.神の辛抱に対する感謝,0:02:16,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_115.mp3,献身
116+116.親切の力,0:01:45,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_116.mp3,献身
117+117.善良さを示す,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_117.mp3,献身
118+118.「さらに信仰を与えてください」,0:02:16,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_118.mp3,献身
119+119.信仰を持とう,0:02:15,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_119.mp3,献身
120+120.キリストの温和さに倣う,0:02:08,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_120.mp3,献身
121+121.自制が必要,0:02:18,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_121.mp3,献身
122+122.揺らぐことなく勝利を得る,0:03:03,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_122.mp3,献身
123+123.神の秩序にいつでも従う,0:02:11,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_123.mp3,献身
124+124.揺るぎない愛,0:02:20,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_124.mp3,献身
125+125.「憐れみ深い人たちは幸福」,0:02:50,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_125.mp3,献身
126+126.目を覚ましていて,しっかり立ち,強い人になる,0:02:09,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_126.mp3,献身
127+127.私はどんな人になるべきだろうか,0:02:07,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_127.mp3,献身
128+128.終わりまで耐え忍ぶ,0:02:14,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_128.mp3,献身
129+129.決して負けない 最後まで,0:03:34,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_129.mp3,献身
130+130.進んで許す,0:02:36,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_130.mp3,献身
131+131.「神が結び合わせたもの」,0:01:44,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_131.mp3,献身
132+132.私たちは一つになる,0:02:09,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_132.mp3,献身
133+133.若い時にエホバを崇拝する,0:01:33,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_133.mp3,献身
134+134.子供たちは神からの財産,0:02:31,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_134.mp3,献身
135+135.エホバの温かな呼び掛け 「わが子よ,賢く」ありなさい,0:02:24,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_135.mp3,献身
136+136.エホバは「十分に報いて」くださる,0:02:51,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_136.mp3,献身
137+137.忠実な女性たち,0:02:42,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_137.mp3,献身
138+138.白髪の美しさ,0:02:52,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_138.mp3,献身
139+139.新しい世界を見つめて,0:03:24,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_139.mp3,献身
140+140.終わりのない命,ついに!,0:02:37,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_140.mp3,献身
141+141.命という奇跡,0:02:24,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_141.mp3,献身
142+142.希望をしっかり持ち続ける,0:01:50,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_142.mp3,献身
143+143.諦めずにエホバの日を待ち続ける,0:02:28,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_143.mp3,献身
144+144.報いを見つめて,0:02:09,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_144.mp3,献身
145+145.パラダイスについての神の約束,0:03:07,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_145.mp3,献身
146+146.「全てのものを新しくしている」,0:03:44,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_146.mp3,献身
147+147.約束された永遠の命,0:02:19,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_147.mp3,献身
148+148.エホバは救い出してくださる,0:03:53,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_148.mp3,献身
149+149.勝利の歌,0:02:23,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_149.mp3,献身
150+150.救いのために神に頼る,0:02:21,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_150.mp3,献身
151+151.神は呼んでくださる,0:03:52,C:\Users\bellm\Documents\souce\CTraining\SanbiNo10min\SanbiNo10min\mp3\sjjm_J_151.mp3,献身
--- SanbiNo10min/SanbiNo10min/Module1.vb (revision 400)
+++ SanbiNo10min/SanbiNo10min/Module1.vb (revision 401)
@@ -10,14 +10,24 @@
1010 Dim filename = System.IO.Path.GetFileName(path)
1111 Dim fo = shell.NameSpace(mp3dir)
1212 Dim fi = fo.ParseName(filename)
13+ Dim mp3len = String.Empty
14+ Dim mp3title = String.Empty
15+
1316 For i = 0 To 1000
1417 Dim name = fo.GetDetailsOf(Nothing, i)
1518 Dim value = fo.GetDetailsOf(fi, i)
1619 If Not String.IsNullOrEmpty(name) Then
17- Console.WriteLine($"{name}={value}")
20+ ' Console.WriteLine($"{name}={value}")
21+ If name = "長さ" Then
22+ mp3len = value
23+ End If
24+ If name = "タイトル" Then
25+ mp3title = value
26+ End If
1827 End If
28+
1929 Next
20-
30+ Console.WriteLine($"{mp3title},{mp3len},{path}")
2131 Next
2232
2333 End Sub