Formel für alle ASCII-Zeichen, auch mit mehreren Buchstaben

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

 

#pointer#

Gast

Betreff: Formel für alle ASCII-Zeichen, auch mit mehreren Buchstaben

 BeitragMi, Jun 15, 2005 14:26
Antworten mit Zitat
moin leutz,

ich versuche gerade eine Schleife u erstellen, die alle Möglichen ASCII Zeichen ausgibt. Allerdings soll das auch mit mehreren Buchstaben funktionieren.

Beispiel:

Zitat:
a
b
c
...
aa
ab
ac
...
aaa
aab
aac
....

Leider habe ich dabei einige Schwierigkeiten.
Die Schleife sollte alle möglichen Kombinationen mit mehreren Buchstabe liefern.

Kann mir jemand helfen? Confused

Jan_

Ehemaliger Admin

BeitragMi, Jun 15, 2005 14:32
Antworten mit Zitat
Benutzer-Profile anzeigen
hä?

BlitzBasic: [AUSKLAPPEN] 

Function str2chr%(in$)
 Local bank%
 Local i%
 bank=CreateBank(Len(in$))
  
 For i = 1 To Len(in$)
  PokeInt bank,i-1,Asc(Mid(in$,i,1))
 Next
 Return bank%
End funciton
between angels and insects
 

#pointer#

Gast

BeitragMi, Jun 15, 2005 14:45
Antworten mit Zitat
nein, nicht so!

Es soll nicht von einem String die Buchstaben ausgeben, sondern allgemein alle Buchstabenkombinationen die es geben kann.

Jan_

Ehemaliger Admin

BeitragMi, Jun 15, 2005 14:58
Antworten mit Zitat
Benutzer-Profile anzeigen
ah.
BlitzBasic: [AUSKLAPPEN] 

For x=0 To 256
	For y=0 To 256
		DebugLog x +\" - \"+y
	Next
Next
BlitzBasic: [AUSKLAPPEN] 
For x=65 To 122
	If x=91 Then x=97
	For y=65 To 122
		If y=91 Then y=97
		DebugLog x +\" - \"+y
	Next
Next
between angels and insects
 

#pointer#

Gast

BeitragMi, Jun 15, 2005 15:23
Antworten mit Zitat
ja, so.
Aber es soll auch bei mehreren Buchstaben funktionieren.
also wenn die Schleife am Ende ist, dann soll das gleiche aber mit der nächst höheren Anzahl von Buchstaben geschehen.

DivineDominion

 BeitragMi, Jun 15, 2005 16:05
Antworten mit Zitat
Benutzer-Profile anzeigen
erstes mal: 0-256 :: 256
zweites mal: 0-256 mit je 0-256 :: 256 * 256 = 256^2
drittes mal: 0-256 mit je 0-256 mit je 0-256 :: 256 * 256 * 256 = 256 ^ 3

Die "Tiefe" ist also die Potenz.
in einer Rekursiven funktion kannst du also den Anfang buffern und als PArameter übergeben. Anfang$ = "abc" würde dann also abca, abcb, abcd, ... liefern.

Function alleZeichen(Anfang$)
For
Print Anfang + Zeichen
Next
Endfunction
christian.tietze@gmail.com - https://christiantietze.de
macOS
 

hitokiri

 BeitragMi, Jun 15, 2005 23:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Das Brute Force Prinzip...wie wir da in einem amüsanten Thread schonmal gesagt hatten: mehr als 4 stellen = gute nacht oder auf die verwendung mehrerer rechner in einem Netzwerk optimierter code damit es in ein paar tagen geht

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group