Underhuvudsakligt ()
Dunkel file1 som den nya ordboken (av stränga, stränga),
'Ladda ordboken med LEGITIMATION (stämma) och data (värdera),
Using avläsare som ny System.IO.StreamReader (”test1.txt”)
Stunder inte reader.EndOfStream
Dunkel str som stränger = reader.ReadLine ()
Dunkla vikarier () som stränger = str. Splittring (”,”)
file1.Add (vikarier (0), str)
Avsluta stunder
Avsluta Using
'Uppdatera varje som är nyckel- i ordbok med data från, understöder sparar
Using avläsare som ny System.IO.StreamReader (”test2.txt”)
Stunder inte reader.EndOfStream
Dunkel str som stränger = reader.ReadLine ()
Dunkla vikarier () som stränger = str. Splittring (”,”)
file1 (vikarier (0)) = String.Concat (file1 (vikarier (0)), ”,”, vikarier (1))
Avsluta stunder
Avsluta Using
'Skriv ordboken till nytt sparar ut
Using författare som ny System.IO.StreamWriter (”result.txt”)
För varje objekt som KeyValuePair (av stränga, stränga), i file1
writer.WriteLine (objekt. Värdera),
Därefter
Avsluta Using
Avsluta suben
|