Sub основа ()
Тусклое file1 как новый словарь (шнура, шнура)
'Словарь нагрузки с удостоверением личности (ключом) и данными (значением)
Using читатель как новое System.IO.StreamReader («test1.txt»)
Пока не reader.EndOfStream
Тусклый str как шнур = reader.ReadLine ()
Тусклый temp () как шнур = str. Разделение («, ")
file1.Add (temp (0), str)
Закончитесь пока
Закончитесь Using
'Уточните каждый ключа в словаре с данными от второго архива
Using читатель как новое System.IO.StreamReader («test2.txt»)
Пока не reader.EndOfStream
Тусклый str как шнур = reader.ReadLine ()
Тусклый temp () как шнур = str. Разделение («, ")
file1 (temp (0)) = String.Concat (file1 (temp (0)), «,», temp (1))
Закончитесь пока
Закончитесь Using
'Напишите вне словарь к новому архиву
Using сочинитель как новое System.IO.StreamWriter («result.txt»)
Для каждого деталя как KeyValuePair (шнура, шнура) в file1
writer.WriteLine (деталь. Значение)
Затем
Конец Using
Подводная лодка конца
|