Variable erzeugen

[Carl]

Hallo, ich komme einfach nicht weiter und hoffe das hier jemand einen Tipp für mich hat.
Kann ich Variablen automatisch erzeugen?
Bei jedem Schleifendurchlauf soll eine Variabel erzeugt und der Wert zwischen den + Zeichen zugewiesen werden.
Eingabe über input z.B. 365+323+698
Das Ergebnis stelle ich mir so vor:

MS1 365
MS2 323
MS3 689

Code: Alles auswählen

 Input$ = InputRequester("Mittelseiten variabel", "Eingabe:","" )
  If Input$ > ""
       a$ + Input$                                              
  Else  
    a$ = "keine Mittelseite eingefügt"
    
  EndIf
 ; MessageRequester("Information", a$, 0)
 ; Debug a$

  X= CountString(a$, "+")
  anzahlMittelseiten= x+1
  ;Debug "Anzahl= " +anzahlMittelseiten
 ;Debug"a$="+a$
  
For k = 1 To anzahlMittelseiten
 p$= StringField(a$,k,"+")
  
  Debug k
  Debug p$
 Next

Danke






__________________________________________________
Code- und Quote-Tags hinzugefügt
29.07.2015
RSBasic

[RSBasic]

wie kann ich „Name“ durch eine Variable ersetzten? Ich möchte den Namen mit Input eingeben

Code: Alles auswählen

 CreateFile(0,"c:/Möbel/a1/Name.txt")

Code: Alles auswählen

CreateFile(0, "c:\Möbel\a1\" + DeineStringVariable$ + ".txt")

Aber bitte unter Windows \ statt / verwenden.

[Nino]

Kann ich Variablen automatisch erzeugen?
Bei jedem Schleifendurchlauf soll eine Variabel erzeugt und der Wert zwischen den + Zeichen zugewiesen werden.
Eingabe über input z.B. 365+323+698
Das Ergebnis stelle ich mir so vor:

MS1 365
MS2 323
MS3 689

Dafür eignet sich im einfachen Fall - wenn keine besonderen zusätzlichen Bedingungen erfüllt werden müssen - wohl am besten eine Liste.

Code: Alles auswählen

Input$ = InputRequester("Mittelseiten variabel", "Eingabe:", "")
If Input$ > ""
   a$ + Input$                                             
Else 
   a$ = "keine Mittelseite eingefügt"
EndIf
; MessageRequester("Information", a$)
; Debug a$

anzahlMittelseiten = CountString(a$, "+") + 1
; Debug "Anzahl = " + anzahlMittelseiten
; Debug "a$ = " + a$

NewList field$()
For k = 1 To anzahlMittelseiten
   AddElement(field$())
   field$() = StringField(a$, k, "+")
Next

ForEach field$()
   Debug field$()
Next

[Carl]

Hallo, Danke für die schnelle Hilfe
Carl

[Derren]

Aber bitte unter Windows \ statt / verwenden.

Windows kann beides ab. Außer bei Serveraufrufen. Da ist wohl zwingend \\ erforderlich.
C:/Windows/System32/ etc klappt aber wunderbar.

[RSBasic]

Das stimmt, sieht aber irgendwie falsch aus.

[Derren]

Eigentlich nur beim Laufwerk, ansonsten kennt man es ja von linux und aus dem Web^^

[NicTheQuick]

Lustig ist es immer, wenn man unter Linux Dateien hat, in denen ein Backslash vorkommt und man die versucht auf einen Windows-PC zu kopieren. Oder Doppelpunkte. Schlimm. Ich nutze öfter Doppelpunkte und Fragezeichen.

[Derren]

Ja. Wäre echt mal eine willkommene Neuererung auf Win10. Aber dann haben alle Windows user das Problem und nicht nur dir paar Linux Nerds :S