ListView/ComboBox-Inhalt speichern u. laden

[ChMaster]

moin,

s.T. - wie stelle ich es am besten?
auf http://www.vbarchiv.net/archiv/tipp_details.php?pid=427 ist es nur in VB6.
Habe es in VB .Net umwandeln lassen vom .Net Wizard, hatt aber nicht geholfen.

ich habe mir gedacht 2 module zu schreiben
wegen der felxibilität

Gruss
ChMaster

 

[ChMaster]

muss leider mitteilen, das problem ist gelöst

habe mal im netz gestöbert (intensive), siehe da was gefunden, ich dank drotzdem für eure hilfe

 

[Konstantin Gross]

Wie währs den wenn du uns die Lösung mitteilen würdest? Damit auch anderen Usern geholfen werden kann, falls sie die selbe Frage haben.

 

[ChMaster]

    Option Explicit On
    Option Strict Off
    
    Imports System.IO
    
    Public Class clsSaveLV
    
    	Public Sub SaveListView(ByRef lvwView As ListView, ByVal sFileName As String, _
 									 ByVal Column0 As Byte)
    
    		Dim sText As String
    		Dim Fs As New IO.FileStream(sFileName, IO.FileMode.OpenOrCreate)
    		Dim Sw As New IO.StreamWriter(Fs)
    		If Column0 > lvwView.Columns.Count Then Exit Sub
    
    		Try
    			For x As Integer = 0 To lvwView.Items.Count - 1
    			 For y As Integer = 0 To lvwView.Items(x).SubItems.Count - 1
 				 sText &= lvwView.Items(x).SubItems(y).Text
    				 sText &= (";")
    			 Next
    				sText &= vbCrLf
    			Next
    
    
    		    If sText.Length > 0 Then
    			 sText = sText.Substring(0, Len(sText) - 2)
    			End If
    
    			Sw.Write(sText)
    
    		Catch ex As Exception
    			MessageBox.Show(ex.ToString)
    		Finally
    			Sw.Close()
    			Fs.Close()
    		End Try
    	End Sub
    
    End Class

aufruf:

    Dim clsSave As New clsSaveLV
    Dim strFile As String = "C:\Test.txt"
    clsSave.SaveListView(ListView1 , strFile, 1)

ListView = eure ListView wie Ihr sie benannt habt
strFile = wohin ihr es speichen wolt (zb.: Test.txt)
und die 1 steht für die Column in der ListView, ist
aber nicht nötig also kann man es weg lassen.

dann müsste man aber

    ByVal Column0 As Byte
    If Column0 > lvwView.Columns.Count Then Exit Sub

weg lassen

 

[Konstantin Gross]

Na also Hast wenigstens der Nachwelt was hinterlassen

PS: Gut währe es noch wenn du die Quelle nennen würdest wo du es gefunden hast.

 

[ChMaster]

Hier gibt es die quelle, das was ich gepostet habe habe ich modifiziert, den das original sieht anders aus