Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Textdatei auslesen und speichern

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
alej



Anmeldungsdatum: 02.10.2009
Beiträge: 9
BeitragVerfasst am: 24.12.2011, 00:07    Titel: Textdatei auslesen und speichern Antworten mit Zitat
Hallo zusammen,

ich habe eine Textdatei vorliegen, die wie folgt aufgebaut ist

20110915000000001234000000DE...

Die einzelnen Teile des Textes haben immer eine feste Länge, nun möchte ich den Text "auseinandernehmen" und die einzelnen Segmente in Variablen oder ein Array schreiben um diese dann in eine neue Textdatei zu schreiben

Den ersten Teil des String auszulesen bzw. nur die ersten 8 Zeichen gelingt ohne Probleme nur die weiteren Zeichen kann ich nicht ausgeben.

Hier mein Versuch, die ersten 8 und zwei weitere Zeichen auszulesen

Code:


dim as integer wert1
dim as integer wert2
dim as integer datei = freefile

wert1 = 8
wert2 = 2

open "DATEI.TXT" for input as #datei
print input(wert1, wert2, #datei)
close #1

sleep


Gruß
alej
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
nemored



Anmeldungsdatum: 22.02.2007
Beiträge: 4700
Wohnort: ~/
BeitragVerfasst am: 24.12.2011, 00:29    Titel: Antworten mit Zitat
Ich würde ja die komplette Zeile einlesen und anschließend mid MID zerlegen. Ansonsten müsste es so funktionieren:
Code:
print input(wert1, #datei)
print input(wert2, #datei)

_________________
Deine Chance beträgt 1:1000. Also musst du folgendes tun: Vergiss die 1000 und konzentriere dich auf die 1.

Zuletzt bearbeitet von nemored am 24.12.2011, 00:31, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Westbeam



Anmeldungsdatum: 22.12.2009
Beiträge: 760
BeitragVerfasst am: 24.12.2011, 00:29    Titel: Antworten mit Zitat
Ach ist doch auch egal, löscht es lieber mal ... verwundert

Zuletzt bearbeitet von Westbeam am 24.12.2011, 01:30, insgesamt einmal bearbeitet
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Sebastian
Administrator


Anmeldungsdatum: 10.09.2004
Beiträge: 5969
Wohnort: Deutschland
BeitragVerfasst am: 24.12.2011, 01:14    Titel: Antworten mit Zitat
Hallo alej,

so ungefähr könnte man das umsetzen:
http://www.freebasic-portal.de/sst/FBZeilenZerlegen.zip (~23 kB)

Das ZIP-Archiv enthält ein paar Beispieldaten, einen Quelltext zum Auslesen und Zerlegen der Zeilen und eine compilierte Programmversion zum Ausprobieren.

Viele Grüße & frohes Fest @ all! zwinkern
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden E-Mail senden Website dieses Benutzers besuchen
alej



Anmeldungsdatum: 02.10.2009
Beiträge: 9
BeitragVerfasst am: 24.12.2011, 01:17    Titel: Antworten mit Zitat
Super,

vielen Dank für die Tips...

Euch allen auch ein frohes Fest

Gruß
alej
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz