今日勉強した事、頑張った事を書き込むスレ19日目

裏2から来ました。
雑炊さんはアクセス規制中のため、代理で投稿します。
================================================
Sub CreateMultiDic
Do Until objTS.AtEndOfStream
strLine = objTS.ReadLine
Array1 = Split(strLine)
objDic.Add Array1(0),Array1(0)
objDic2.Add Array1(0),Array1(1)
objDic3.Add Array1(0),Array1(2)
objDic4.Add Array1(0),Array1(3)
objDic5.Add Array1(0),Array1(4)
objDic6.Add Array1(0),Array1(5)
objDic7.Add Array1(0),Array1(6)
objDic8.Add Array1(0),Array1(7)

裏2から来ました。
雑炊さんはアクセス規制中のため、代理で投稿します。
================================================
objDic9.Add Array1(0),Array1(8)
objDic10.Add Array1(0),Array1(9)
objDic11.Add Array1(0),Array1(10)
objDic12.Add Array1(0),Array1(11)
objDic13.Add Array1(0),Array1(12)
objDic14.Add Array1(0),Array1(13)
Loop
objTS.Close
CreateArray20
End Sub

裏2から来ました。
雑炊さんはアクセス規制中のため、代理で投稿します。
================================================
Sub CreateArray20
Do Until objTS2.AtEndOfStream
strLine2 = objTS2.ReadLine
Array20 = Split(strLine2,",")
strName = Array20(0)
strData = Array20(1)
Wsum = Array1(0)
If objDic.Exists(strName) Then
MsgBox "既に存在" & strName & strData
MsgBox objDic9.Item(strName)
Else
MsgBox "新規" & strName & strData
End If
Loop
objTS2.Close
End Sub