XProfan

Español

rafl

¡Hola,

Yo una Textdatei, en el posición pro Línea zwei Integerwerte y drei Floatwerte por Leerzeichen getrennt.

Bsp.: 1234 345 123.456 567.234 789.456

Kann Yo el Werte por una input # -Befehl lesen (como en alten BASIC-Dialekten) Bsp. input #1, a%,b%,c!,d!,e! oder muss Yo el Línea como String lesen y anschließend con val(mid$...) o. val(substr$(...) ) otra vez zerpflücken?

Rafl

02.05.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Hm - algo como puede ser doch por una kurzen Selbstversuch bastante rápidamente herausfinden, oder?

Usted puede el Línea mittels Explode entonces rápidamente en una Stringarray bekommen y hast así guten Zugriff darauf. Wenn du einzelne Variables necesidad, se dir aber nichts más übrigbleiben, como el String a zerlegen, o el Werte de el Array a holen y el Variables zuzuweisen.

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

02.05.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

rafl

Yo habe en efecto ya herumexperimentiert, hatte aber el Hoffnung, irgendetwas übersehen a haben y dass lo doch una einfachere Solución son, sin el Umweg encima una String y anschließender Typumwandlung.

02.05.2016 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Sooo wahnsinnig umwegig es el entonces aber auch no:

Kompilieren Marca Separación

Declarar a$[]
Declarar a%,b%,c!,d!,e!
Var s$ = "1234 345 123.456 567.234 789.456"
'hier wäre entonces etwa:
'Entrada #1, s$
a$[] = Explode(s$," ")
a% = a$[0]
' si du en Nummer Seguro ir willst, nimmst du hier jeweils Val() dazu
b% =Val( a$[1])
c! = a$[2]
d! = a$[3]
e! = a$[4]
Imprimir a%,b%,c!,d!,e!
Imprimir

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

    imprimir a$[&Loop]

Wend

WaitInput