2011-07-19から1日間の記事一覧
なんか変なコードを見た。ちなみ VBScript(in ASP)。 Set Dict = CreateObject("Scripting.Dictionary") For Each Line In Lines Ary = Split(Line, "=") For I = 1 To UBound(Ary) - 1 Ary(1) = Ary(1) & "=" & Ary(1 + I) Next Dict(Ary(0)) = Ary(1) Next…
なんか変なコードを見た。ちなみ VBScript(in ASP)。 Set Dict = CreateObject("Scripting.Dictionary") For Each Line In Lines Ary = Split(Line, "=") For I = 1 To UBound(Ary) - 1 Ary(1) = Ary(1) & "=" & Ary(1 + I) Next Dict(Ary(0)) = Ary(1) Next…
