PureBoard

Code: Alles auswählen

 Name.s        =Left(wert.s,10   )
 Vorname.s     =Mid (wert.s,11,15)
 Strasse.s     =Mid (wert.s,26,15)
 Nr.s          =Mid (wert.s,41,15)
 Postleitzahl.s=Mid (wert.s,56,15)
 Ort.s         =Mid (wert.s,71,15)
 Telefon.s     =Mid (wert.s,86,15)
 AddGadgetItem(0, -1,"Name.s"+Chr(10)+"Vorname.s"+Chr(10)+"Strasse.s"+Chr(10)+"Nr.s"+Chr(10)+"Postleitzahl.s"+Chr(10)+"Ort.s"+Chr(10)+"Telefon.s")      

• Warum liest du die Datei in einer For-Schleife ein? Auch wenn du vorher schon weißt, wie viele zeilen eine Datei hat, ist folgende Art immer die beste Lösung, eine Datei zeilenweise einzulesen:

  Code: Alles auswählen

  If ReadFile(1, "C:\Datei.txt")
     While Eof(1) = 0
        zeile.s=ReadString(1) ; liest automatisch eine ganze Zeile ein
       
        ; hier kann etwas mit "zeile.s" gemacht werden
       
     Wend ; Verlässt automatisch die Schleife, wenn Dateiende erreicht
     CloseFile(1)
  EndIf

  ReadString() liest automatisch eine Zeile aus einer Datei. Der Punkt ist jedoch, dass du kein extra FileSeek() brauchst! ReadString() verschiebt nämlich den Dateizeiger nach dem Auslesen einer Zeile automatisch auf den Anfang der nächsten Zeile! Der Befehl Eof() gibt genau dann 0 zurück, wenn das Ende der Datei erreicht wurde. Die While-Schleife wird also verlassen, sobald der Dateizeiger ans Ende dieser Datei kommt. Das bedeutet: Kein aufwändiges Selber-Rumpfuschen mit FileSeek().
• Du brauchst Variablentypen nicht extra anzugeben!
  Man sieht, du definierst eine Variable, zum beispiel laenge.l. Bei der Definition einer Variable muss man den Typ ".l" angeben, ist klar. Bei allen weiteren Aufrufen dieser Variable braucht man dann aber nicht mehr ".l" schreiben! Bei weiteren Aufrufen weiß PureBasic doch bereits, von welchem Typ die Variable ist - wozu also noch einmal notieren? Schreibst du außerdem erst laenge.l und später irgendwo laenge.w, dann meckert PureBasic beim Kompilieren, dass du versehentlich durch einen Tippfehler zwei verschiedene Variablentypen benutzt.
• Das führt uns zum nächsten Tipp: EnableExplicit benutzen! Glaub mir, ich war anfangs total dagegen. Mittlerweile mach ich's nicht mehr ohne. Denn EnableExplicit passt auf, dass du nur Variablen benutzt, die du ausdrücklich (explicit = ausdrücklich, englisch) definiert hast. Denn das bewahrt dich vor haarsträubenden Situationen wie diese hier:

  Code: Alles auswählen

  joghurt=5
  Debug jogurt+1

  Nanu, warum kommt hier nicht 6 raus? "Jogurt" darf man nach der neuen Rechtschreibung auch ohne 'h' schreiben (Nein TS-Soft, keinen Flamewar an dieser Stelle!!).
  Kommt man aber durcheinander, und schreibt eine bereits benutzte Variable falsch hin, dann erstellt PureBasic aus dem zweiten, fehlerhaften Wort eine neue Variable mit dem Anfangswert 0. In der obigen Debug-Zeile soll PureBasic also "jogurt+1" rechnen. Da "jogurt" aber nicht existiert, erstellt PureBasic diese Variable neu mit dem Wert 0 und addiert 1. Ergebnis: 1 statt der gewünschten 6.
  Glaub mir, solche Fehler können dich sehr viel Zeit kosten, wenn dein Programm wegen sowas nicht richtig funktioniert. Mich hat sowas schon mal 20 Minuten gekostet, plus anschließend so viel Frust, dass ich zwei Tage kein Bock mehr auf Programmieren hatte.
  Unser obiges Programm sollte also so aussehen:

  Code: Alles auswählen

  EnableExplicit
  Define joghurt=5
  ;Debug jogurt+1  ; diese Zeile auskommentieren und PB zeigt einen Fehler an
  Debug joghurt+1  ; diese Zeile ist richtig

  Schau einfach mal in der Hilfe bei EnableExplicit nach.
• Variablentypen außer $/.s, .f/.d und .i sind unnötig. Als Anfänger wirst du höchstens 3 verschiedene Typen brauchen: Strings, Ganzzahlen und Dezimalzahlen (Kommazahlen). Strings definierst du wunderbar mit .s oder $ hinten dran. Kommazahlen werden mit .f bzw. .d definiert (.d ist genauer als .f).
  
  Wenn man aber wie du mit Ganzzahlen arbeiten will, dann sind .w, .l und .b Schnee von gestern. Lass diese Endungen einfach weg! PureBasic nimmt in Version 4.20 automatisch den Datentyp .l, also Long und ab 4.30 den Datentyp .i, also Integer. Die anderen Datentypen .b und .w (Byte und Word) sind Relikte aus alten Tagen, als man noch sparsam mit Arbeitsspeicher umgehen musste. Bytes und Words verbrauchen nur 1 und 2 Byte Speicher, Longs dagegen 4 und Integer 4 bzw. 8 Byte. Heutzutage ist es schwer, nur mit Longs einen Arbeitsspeicher gänzlich zu füllen. Man hat einfach genug davon.
  Schreibe also in Zukunft anstatt laenge.l=Lof(1) lieber laenge=Lof(1) und anstatt For z.w=1 To zeilenanzahlw.w lieber For z=1 To zeilenanzahl.
  Also einfach die Endung weglassen und PB nimmt automatisch Longs. Es sei denn du benötigst so große Zahlen, dass diese nicht mehr in ein Long passen, dann musst du auf den Datentyp .q (Quad) zugreifen. Und .q musst du (nur bein Definieren einer Variable) hinschreiben.
  Übrigens: CPUs können mit Longs bzw. Integers (.l und .i) schneller rechnen, als mit .b und .w! Aber das nur am Rande.
  Noch ein Tipp: Codes und Prozeduren, die Programmeirer hier in das Forum stellen, damit andere sie nutzen können, sollten immer so geschrieben sein, dass sie mit EnableExplicit kompatibel sind. Das bedeutet: Wenn ich ein meinem Programm EnableExplicit benutze finde im Forum einen Code, den ich in meinem Programm einfüge, dann darf es keine EnableExplicit-bedingte Fehlermeldung geben. Sowas wirkt unprofessionell und halst dem jeweiligen Programmierer unnötige Zusatzarbeit auf. Also: Immer schön EnableExplicit benutzen und jede Variable mit Define, Global oder Protected definieren! Ein weiterer Vorteil ist nämlich, dass man durch diese Schlüsselwörter die Stellen, an denen Variablen definiert werden, schneller erkennt und der Code somit übersichtlicher wird.
• Kannst du vielleicht mal ein bisschen was aus deiner Text-Datei hier posten? Man sieht, du zerlegst jede eingelesene Zeile mit Left() und Mid(). Ich vermute, dass Name, Adresse usw. durch ein Trennzeichen getrennt sind? Dann dürfe nämlich StringField() dein Freund sein!
  Aber um dir den besten/einfachsten/elegantesten Weg zu zeigen, wie du deine Einträge auslesen kannst, wäre es hilfreich, einige Beispieleinträge aus deiner Datei zu sehen.

zeiile.s="Krueger"+Chr(9)+"Fridolin"+Chr(9)+"Hauptweg"+Chr(9)+"    78	"+Chr(9)+"5000"+Chr(9)+" Köln"+Chr(9)+"	 456"

name.s     =StringField(zeile, 1, Chr(9))
vorname.s  =StringField(zeile, 2, Chr(9))
strasse.s  =StringField(zeile, 3, Chr(9))
nr.s       =StringField(zeile, 4, Chr(9))
plz.s      =StringField(zeile, 5, Chr(9))
ort.s      =StringField(zeile, 6, Chr(9))
tel.s      =StringField(zeile, 7, Chr(9))

AddGadgetItem(0, -1, name+Chr(10)+vorname+Chr(10)+strasse+Chr(10)+nr+Chr(10)+plz+Chr(10)+ort+Chr(10)+tel)

• Beachte: Damit du diesen Code direkt aus dem Forum kopieren kannst, habe ich die Tabs durch Chr(9) ersetzt, weil beim Kopieren von einer Internetseite in den Editor Tabs durch Leerzeichen ersetzt werden.
• Natürlich sollte man EnableExplicit benutzen. Aber bei so Codes wie diesem hier, die "nur mal eben was verdeutlichen" sollen, ist das nicht nötig. Also anpassen, wenn du den Code in dein Programm einfügst.
• Wichtig: Man stellt fest, dass Leerzeichen die Ausgabe stören. Die Hausnummer zum Beispiel ist von Leerzeichen umgeben. Das kann verschiedene Gründe haben. Ist das schon in Excel so? Oder speichert Excel das so ab? Egal, es gibt Abhilfe, und der Befehl dazu heißt Trim(). Trim() entfernt Leerzeichen vor oder nach einem Text, aber nicht dazwischen. Es entfernt also nur führende und abschließende Leerzeichen.
  Setze also um alle StringField()-Befehle in meinem Beispielcode ein Trim(), wenn nötig.

zeiile.s="Krueger"+Chr(9)+"Fridolin"+Chr(9)+"Hauptweg"+Chr(9)+"78"+Chr(9)+"5000"+Chr(9)+"Köln"+Chr(9)+"456"

zeile=ReplaceString(zeile, Chr(9), Chr(10))   ; nur  2
AddGadgetItem(0, -1, zeile)                   ; Zeilen