PureBoard

Hier die Lösung Kiffi

MEINE_VARIABLE = 10
Debug MElNE_VARIABLE ; ergibt 0 (warum nur? ;-) )
Debug MEINE_VARIABLE ;Kopiert aus Zeile 1
test$ ="MElNE_VARIABLE" ;Zeile 2
For i = 1 To Len(test$)
a$ = Mid(test$,i,1)
Debug Asc(a$)
Next i
Debug "---"
test$ ="MEINE_VARIABLE" ;Zeile 1
For i = 1 To Len ...

Für 10.000.000 Stellen reichen 10MB locker 100 GB aber nicht für die Rechenvariabeln. Kein PC kann auf direktem Weg so große Zahlen verarbeiten, -sich auch nich merken und damit fangen die Probleme an.
Die Berechnung findet also mehr auf den Festplatten als in der CPU statt.
diese hat mehr die ...

Wenn ich bei 1 anfange und dann Zahl für Zahl teste, dauert es so lange.

Ich würde aber gleich mit 10.000.000 Stellen anfangen, keine Zahl die durch 2, 3, 5 ... testen. So wirds einfacher und verringert die Zeit erheblich.

Die Leistung meines Rechners reicht nicht aus (Festplatte und Monitor).
Der Rechenweg ist relativ einfach.
Aber ein Durchlauf des Programms würde mehr als einige Tage dauern.
[/list]

Mein Tip wäre alle Zahlen mit einem Fixwert zu addieren,
dann sortieren,
dann wieder Fixwert subtraieren.

Danke Kiffi
Genau das meinte ich.
Kopiert man den Variabelname kann es auch nich Passieren.
Einige Editoren bieten auch die Möglichkeit alle Variabeln stets anzeigen zu lassen.
Und notfalls einen Zettel und Stift verwenden, ich machs auch was bei dutzenden von Variabeln und Sprungmarken sinnvoll ist ...

Ich hätte auch eine elegantere Lösung gehabt.
Wenn es nur um Zahlen geht, hätte ich andere Zeichen geblockt und die Zahlen direkt verglichen.

Aber Richtig ist unbedingt, dass man keinen String vergleichen kann der nicht so lang ist wie getestet.

Der eigentliche Fehler war aber der Variabelname ...

Gesuchter$ <>Gesucht$
Variabelnamen beachten.

so gehts bei PB3.94

If OpenWindow(0,100,100,500,400,#PB_Window_SystemMenu,"Fenster 1")
If CreateGadgetList(WindowID(0))
TextGadget(1,20,20,120,20,"Gesuchter")
StringGadget(2,140,20,100,20,"")
TextGadget(3,20,50,100,20,"Neuer")
StringGadget ...

Hier der Code in abgewandelter Form


TeleText.s = "Dieses ist ein Test"
r.l = Len(TeleText)
Firstline.s = "Kanati is a nice guy And such a pleasure To talk To."+ Chr(10)+"test"
x.l = Len(Firstline)
STDPrinterName$ = Space(260)
GetPrivateProfileString_("WINDOWS","DEVICE","", @STDPrintername$, 260 ...

Nur Theorie:
-Position der Eingabeaufforderung feststellen.
-Auslesen der Farbe mittels einzelnen Bildpunkten.

es geht aber sicher auch einfacher!