German List.Add(...) mit CRLF

[Mr.K]

Hallo zusammen!

Ist es möglich mehrere Strings, die durch ein CRLF getrennt sind, als ein Item zu einer liste hinzuzufügen?

Also sowas wie:

List1.Add(String1 & CRLF & String2 & CRLF & String3)

 

[klaus]

Die einfachste Antwort ist:
Versuche es und Du hast die Antwort .

Beste Grüsse.

 

[Mr.K]

Dann sollte das auch mit Datenbank einträgen funktionieren...Bei meine Projekt wird nämlich nach jedem CRLF ein neues Item erstellt.

Sub FillList
    'Dim KndLst As List
    lstKunden.Initialize
  
    Cursor1 = DBRoutines.SQL1.ExecQuery("SELECT Profile, Street, PostalCode, City FROM DBtest1")
    File.OpenOutput(File.DirDefaultExternal, "Kundenliste.txt", True)
  
    For i = 0 To Cursor1.RowCount - 1
        Cursor1.Position = i
      
        lstKunden = File.ReadList(File.DirDefaultExternal, "Kundenliste.txt")
        Log("****************")
        Log("lstKunden: " & lstKunden)
      
        If lstKunden.IndexOf(Cursor1.GetString("Profile")) = -1 Then
        '& Cursor1.GetString("Street") &CRLF& Cursor1.GetString("PostalCode") &", "& Cursor1.GetString("City")) = -1 Then
            lstKunden.Add(Cursor1.GetString("Profile") &CRLF& Cursor1.GetString("Street") &CRLF& Cursor1.GetString("PostalCode") & ", " & Cursor1.GetString("City")&CRLF)
   
            File.WriteList(File.DirDefaultExternal, "Kundenliste.txt", lstKunden)
        End If
    Next
  
    Log("Size: " & lstKunden.Size)
    'lstKunden.SortCaseInsensitive(True)
    Cursor1.Close
    FillListview1  
End Sub

 

[klaus]

Ich weiss es nicht Ich müsste auch erst testen ob es funktioniert.

Beste Grüsse.

 

[eps]

I think you'll have to do it in Stages, something like this...

1stKunden.Append(Cursor1.GetString("Profile")
1stKunden.Append(""&CRLF&CRLF)

etc

possibly something like that, maybe or maybe not with the ""

 

[klaus]

Das Problem liegt hier in dieser Zeile: File.ReadList(...

Gemäss der Hilfedatei:
File.WriteList
Writes each item in the list as a single line.
Note that a value containing CRLF will be saved as two lines (which will return two item when read with ReadList).
Wenn man in eine List mit File.WriteList schreibt und Einträge CRLF enthalten dann werden aus dem zwei Einträge beim zurück lesen !
Also dein Grungproblem ist nicht die List sondern File.WriteList und File.ReadList.

Beste Grüsse.

 

[eps]

Ah right, so use another method to write the items to the List..

 

[Mr.K]

Ah ok, I'll try other methods.
Thanks a lot guys!