Italia
Foro

Einlesen mehrerer numerischer Werte pro Zeile aus einer Textdatei

 

rafl
Ciao,

ich habe eine Textdatei, in der stehen pro Zeile zwei Integerwerte und drei Floatwerte durch Leerzeichen getrennt.

Bsp.: 1234 345 123.456 567.234 789.456

Kann ich die Werte durch einen input # -Befehl lesen (wie in alten Di base-Dialekten) Bsp. input #1, a%,b%,c!,d!,e! oder muss ich die Zeile als String lesen und anschließend mit val(mid$...) bzw. val(substr$(...) ) wieder zerpflücken?

Rafl
 
02.05.2016  
 




Jörg
Sellmeyer
Hm - sowas kann man doch durch einen kurzen Selbstversuch ganz schnell herausfinden, oder?

Du kannst die Zeile mittels Explode dann schnell in ein Stringarray bekommen und hast so guten Zugriff darauf. Wenn du einzelne Variablen benötigst, wird dir aber nichts anderes übrigbleiben, als den String zu zerlegen, bzw die Werte aus dem Array zu holen und den Variablen zuzuweisen.
 
XProfan X3
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
02.05.2016  
 




rafl
Ich habe ja auch schon herumexperimentiert, hatte aber die Hoffnung, irgendetwas übersehen zu haben und dass es doch eine einfachere Lösung gibt, ohne den Umweg circa einen String und anschließender Typumwandlung.
 
02.05.2016  
 




Jörg
Sellmeyer
Sooo wahnsinnig umwegig ist das dann aber auch nicht:
Declare a$[]
Declare a%,b%,c!,d!,e!
Var s$ = "1234 345 123.456 567.234 789.456"
'hier wäre dann etwa:
'Input #1, s$
a$[] = Explode(s$," ")
a% = a$[0]
' wenn du auf Nummer Sicher gehen willst, nimmst du hier jeweils Val() dazu
b% =Val( a$[1])
c! = a$[2]
d! = a$[3]
e! = a$[4]
Print a%,b%,c!,d!,e!
Print

WhileLoop 0,SizeOf(a$[]) - 1

    print a$[&Loop]

Wend

WaitInput
 
Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...
02.05.2016  
 




rafl
OK. Danke per die schnelle Aiuto.
 
02.05.2016  
 



Answer


Topictitle, max. 100 characters.
 

Systemprofile:

Kein Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Bitte anmelden um einen Beitrag zu verfassen.
 

Topic-Options

7.857 Views

Untitledvor 0 min.
ecki01.04.2019
rafl17.02.2019
Samy12.01.2018
Martin Kempf28.11.2016
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

rafl (3x)
Jörg Sellmeyer (2x)


Admins  |  AGB  |  Applications  |  Autori  |  Chat  |  Informativa sulla privacy  |  Download  |  Entrance  |  Aiuto  |  Merchantportal  |  Impronta  |  Mart  |  Interfaces  |  SDK  |  Services  |  Giochi  |  Cerca  |  Support

Ein Projekt aller XProfaner, die es gibt!


Il mio XProfan
Private Notizie
Eigenes Ablageforum
Argomenti-Merkliste
Eigene Beiträge
Eigene Argomenti
Zwischenablage
Annullare
 Deutsch English Français Español Italia
Traduzioni

Informativa sulla privacy


Wir verwenden Cookies nur als Session-Cookies wegen der technischen Notwendigkeit und bei uns gibt es keine Cookies von Drittanbietern.

Wenn du hier auf unsere Webseite klickst oder navigierst, stimmst du unserer Erfassung von Informationen in unseren Cookies auf XProfan.Net zu.

Weitere Informationen zu unseren Cookies und dazu, wie du die Kontrolle darüber behältst, findest du in unserer nachfolgenden Datenschutzerklärung.


einverstandenDatenschutzerklärung
Ich möchte keinen Cookie