Okręt podwodny Magistrala ()
Ciemnawy file1 Jako Nowy Słownik (Sznurek, Sznurek)
'Obciążeniowy słownik z ID (klucz) i dane (wartość)
Using czytelnik Jako Nowy System.IO.StreamReader ("test1.txt")
Podczas Gdy Nie reader.EndOfStream
Ciemnawy str Jako Sznurek = reader.ReadLine ()
Ciemnawy zastępca () Jako Sznurek = str. Rozłam (", ")
file1.Add (zastępca ((0)), str)
Kończyć Podczas Gdy
Kończyć Using
'Aktualizować kartoteka klucz w słownik z dane od drugi kartoteka
Using czytelnik Jako Nowy System.IO.StreamReader ("test2.txt")
Podczas Gdy Nie reader.EndOfStream
Ciemnawy str Jako Sznurek = reader.ReadLine ()
Ciemnawy zastępca () Jako Sznurek = str. Rozłam (", ")
file1 (zastępca ((0))) = String.Concat (file1 (zastępca ((0))), ",", zastępca (1))
Kończyć Podczas Gdy
Kończyć Using
'Pisać kartoteka słownik nowy kartoteka
Using pisarz Jako Nowy System.IO.StreamWriter ("result.txt")
Dla File1 rzecz Jako KeyValuePair (Sznurek, Sznurek) W file1
writer.WriteLine (rzecz. Wartość)
Następnie
Końcówka Using
Końcówka Okręt podwodny
|