
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

Sztring kollekció tartalmának mentése szöveges állományba

Példaprogram letöltése

6035 bájt

Készítsünk most egy olyan függvényt, mely képes arra, hogy egy tetszőleges StringCollection osztályban elhelyezett szövegek tartalmát egy általunk megadott szöveges állományba mentse.

Ez a függvény a CollectionToFile nevet kapja. Első paraméterében a StringCollection osztályt kell megadni, míg a másodikban a létrehozandó állomány nevét esetleges elérési útvonalával együtt.

Szöveges állomány kezeléséhez a StreamWriter osztályt használjuk, melyet úgy hozunk létre, hogy a File osztály CreateText statikus függvényét meghívjuk, paraméterként átadva a létrehozandó állomány nevét.

Ezt követően egy for ciklussal végigmegyünk a sztring kollekció összes elemén, és a WriteLine függvénnyel az állományba írjuk a sorokat. Végül zárjuk az állományt.

  Private Sub CollectionToFile(ByVal sc As StringCollection, ByVal filename As String)
    Dim sw As StreamWriter = File.CreateText(filename)
    Dim i As Integer
    For i = 0 To sc.Count - 1
      sw.WriteLine(sc(i))
    Next i
    sw.Close()
  End Sub 'CollectionToFile

Függvényünk felhasználásához létrehozunk egy sztring kollekciót, tetszőleges elemeket helyezünk bele, majd meghívjuk a függvényünket, paraméterként átadva a szükséges adatokat.

  Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
    Dim sc As New StringCollection()
    sc.Add(DateTime.Now.ToString())
    sc.Add("http://www.SoftwareOnline.hu")
    CollectionToFile(sc, Application.StartupPath + "\test.txt")
  End Sub 'button1_Click

Felhasználási feltételek

A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!