Das deutsche QBasic- und FreeBASIC-Forum

[F-Xer]

Deleted

[ytwinky]

Na, wie ne Textverarbeitung sieht das nicht aus..
..eher nach Verschlüsselung oder so..
Gruß
ytwinky
_________________

[F-Xer]

Deleted

[MisterD]

OMG >.<

schonma was von SELECT CASE gehört? außerdem könnte man das ganze mit hilfe von ASC() wesentlich einfacher lösen..


und "funzt ned" - poste einfach mal den ersten fehler den der compiler da ausspuckt..
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Anistasius]

Probiere mal ob das hier geht:
'---------------------------------------------------------

Function replace(quelle$,zeichen$,durch$) As String
x$ = quelle$
x1$=""
If Instr(x$, zeichen$) = 0 Then x1$=quelle$:Return (x$)
t% = 1

Do
If Mid$(x$, t%, Len(zeichen$)) = zeichen$ Then
x$ = Left$(x$, t% - 1) + durch$ + Mid$(x$, t% + Len(zeichen$), Len(x$))

Else
t% = t% + 1
End If
Loop until t% > Len(x$)

Return(x$)
End Function



input "Dein Text", DeinText$

DeinText$=replace(DeinText$,"A","10001")
DeinText$=replace(DeinText$,"B","10002")

'usw....
'--------------------

Oder noch kürzer:
#Include Once "vbcompat.bi"

for t%= 1 to 26
DeinText$=replace(DeinText$,chr$(64+t%),"100" +format$(t%,"00") )

next t%

Viele Grüße
Anistasius

[F-Xer]

Deleted