Wäre es nicht mal wieder an der Zeit...

[STARGÅTE]

Du auch 7x7 ^^

656

Code: Alles auswählen

EnableExplicit
Global a,d,f,j,m,n,c.s,h.s,i.s
Macro U
h=Input()
EndMacro
Macro W
EndIf
EndMacro
OpenConsole()
Print("Filename (blank to use std in)...?")
U
If h
OpenFile(1,h)
Repeat
i+ReadString(1)
Until Eof(1)
Else
U
While h
i+h
U
Wend
W
h=i
While h
m+1
h=Mid(i,m,1)
If FindString("+-<>.,[]",h)
c+h
j-((Asc(h)/23)!3-3)/3
W
Wend
i="Uneven brackets"
If j=0   
Dim k(d)
For m=0 To Len(c)
n=PeekA(@c+m)-44
i=""
Select n
Case -1,1
k(f)-n
Case 2
Print(Chr(k(f)))
Case 0
If h=i
U
W
k(f)=Asc(h)
h=Mid(h,2)
Case 16,18
f+n-17   
If f<0
i="Memory pointer out of range"
Break
W
d+9
ReDim k(d)
Case 47,49
a=(k(f)XOr n/49)!1*(48-n)
j=a
While j
m+a
j-((PeekA(@c+m)/23)!3-3)/3
Wend
EndSelect
Next
W
Print(i+RSet("Press ENTER to exit",22,#LF$))
U

PS: Im übrigen stürtzt der Code inzwischen ab, wenn man einen falschen Dateinamen eingibt.
Das vor in Versionen davor nicht der Fall, wer hat da n Sicherheitsabfrage gekillt? ^^

[Sirius-2337]

655

Code: Alles auswählen

EnableExplicit
Global a,d,f,j,m,n,c.s,h.s,i.s
Macro U
h=Input()
EndMacro
Macro W
EndIf
EndMacro
OpenConsole()
Print("Filename (blank to use std in)...?")
U
If ReadFile(1,h)
Repeat
i+ReadString(1)
Until Eof(1)
Else
U
While h
i+h
U
Wend
W
h=i
While h
m+1
h=Mid(i,m,1)
If FindString("+-<>.,[]",h)
c+h
j-((Asc(h)/23)!3-3)/3
W
Wend
i="Uneven brackets"
If j=0   
Dim k(d)
For m=0 To Len(c)
n=PeekA(@c+m)-44
i=""
Select n
Case -1,1
k(f)-n
Case 2
Print(Chr(k(f)))
Case 0
If h=i
U
W
k(f)=Asc(h)
h=Mid(h,2)
Case 16,18
f+n-17   
If f<0
i="Memory pointer out of range"
Break
W
d+1
ReDim k(d)
Case 47,49
a=(k(f)XOr n/49)!1*(48-n)
j=a
While j
m+a
j-((PeekA(@c+m)/23)!3-3)/3
Wend
EndSelect
Next
W
Print(i+RSet("Press ENTER to exit",22,#LF$))
U

PS: Im übrigen stürtzt der Code inzwischen ab, wenn man einen falschen Dateinamen eingibt.
Das vor in Versionen davor nicht der Fall, wer hat da n Sicherheitsabfrage gekillt? ^^

Er stürtz auch ab wenn man einfach zweimal Enter drückt.

[7x7]

Du auch 7x7 ^^

[7x7]

@Sirius-2337
Du hast einen Bock drin bei "If ReadFile(1,h)" ! Die Abfrage, ob Standard-input oder Fileinput gewählt wurde fehlt! Läuft nicht...!
edit:Nehme alles zurück...läuft doch! Sorry!

[STARGÅTE]

@Sirius-2337

Jo, das heißt es wurde gegen die regeln verstoßen, dass die Ausgabe erhalten bleibt.
Und nun?

Egal hier noch mal zwei weniger, der IMA ist trotzdem noch da, wenn der c-String leer ist.

653

Code: Alles auswählen

EnableExplicit
Global a,d,f,j,m,n,c.s,h.s,i.s
Macro U
h=Input()
EndMacro
Macro W
EndIf
EndMacro
OpenConsole()
Print("Filename (blank to use std in)...?")
U
If ReadFile(1,h)
Repeat
i+ReadString(1)
Until Eof(1)
Else
U
While h
i+h
U
Wend
W
h=i
While h
m+1
h=Mid(i,m,1)
If FindString("+-<>.,[]",h)
c+h
j-((Asc(h)/23)!3-3)/3
W
Wend
i="Uneven brackets"
If j=0   
Dim k(d)
m=@c
While PeekA(m)
n=PeekA(m)-44
i=""
Select n
Case -1,1
k(f)-n
Case 2
Print(Chr(k(f)))
Case 0
If h=i
U
W
k(f)=Asc(h)
h=Mid(h,2)
Case 16,18
f+n-17   
If f<0
i="Memory pointer out of range"
Break
W
d+1
ReDim k(d)
Case 47,49
a=(k(f)XOr n/49)!1*(48-n)
j=a
While j
m+a
j-((PeekA(m)/23)!3-3)/3
Wend
EndSelect
m+1
Wend
W
Print(i+RSet("Press ENTER to exit",22,#LF$))
U

[NicTheQuick]

Eigentlich gelte die Codes nicht mehr, wenn dadurch Fehler entstehen. Was ist denn letzte Code ohne Fehler? Hab den Überblick verloren und gerade zu wenig Zeit das durchzutesten. ^^

[Sirius-2337]

Eigentlich gelte die Codes nicht mehr, wenn dadurch Fehler entstehen. Was ist denn letzte Code ohne Fehler? Hab den Überblick verloren und gerade zu wenig Zeit das durchzutesten. ^^

Man könnte auch wieder Code einbauen, damit es wieder funktioniert wie Anfangs und mit dem Code weitermachen.

[ts-soft]

Wenn morgen das Forum ausfällt, sollte der Countdown entsprechende verlängert werden, nicht das jemand seine
ultrakurze Version nicht mehr einreichen kann, bloß weil das Forum für ein paar stunden down ist.

[RSBasic]

Wenn morgen das Forum ausfällt, [...]

Das wusste ich ja noch garnicht. Das lese ich jetzt erst gerade: http://www.purebasic.fr/english/viewtop ... 14&t=49706

[NicTheQuick]

644

Code: Alles auswählen

EnableExplicit
Global a,d,f,j,m,n,c.s,h.s,i.s
Macro U
h=Input()
EndMacro
Macro W
EndIf
EndMacro
OpenConsole()
Print("Filename (blank to use std in)...?")
U
If ReadFile(1,h)
Repeat
i+ReadString(1)
Until Eof(1)
Else
U
While h
i+h
U
Wend
W
h=i
While h
m+1
h=Mid(i,m,1)
If FindString("+-<>.,[]",h)
c+h
j-((Asc(h)/23)!3-3)/3
W
Wend
i="Uneven brackets"
If j=0
Dim k(d)
m=@c
While PeekA(m)
n=PeekA(m)-44
i=""
k(f)-n&1*n*(1-n/47)
If Not n
If h=i
U
W
k(f)=Asc(h)
h=Mid(h,2)
W
If n>15
If n>46
a=(k(f)XOr n/49)!1*(48-n)
j=a
While j
m+a
j-((PeekA(m)/23)!3-3)/3
Wend
Else
f+n-17
If f<0
i="Memory pointer out of range"
Break
W
d+1
ReDim k(d)
W
W
If n=2
Print(Chr(k(f)))
W
m+1
Wend
W
Print(i+RSet("Press ENTER to exit",22,#LF$))
U