Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

erstes und leztes Zeichen aus einem String

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
PoWeR



Anmeldungsdatum: 26.10.2005
Beiträge: 4

BeitragVerfasst am: 26.10.2005, 11:26    Titel: erstes und leztes Zeichen aus einem String Antworten mit Zitat

Hallo ich hab heute angefangen ein bissel mit FB rum zu spielen und ich wollte wissen wie man das erste und lezte Zeichen aus einem String kapiert durchgeknallt
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 26.10.2005, 11:56    Titel: Antworten mit Zitat

Hallo!

Für das erste aus einem String nimm einfach:

Code:

zeichen1$=left$(DeinString$,1)


Fürs rechte:

Code:

zeichen2$=right$(DeinString$,1)


Müsste funktionieren. zwinkern

Greetings,
Mao
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
PoWeR



Anmeldungsdatum: 26.10.2005
Beiträge: 4

BeitragVerfasst am: 26.10.2005, 12:15    Titel: Antworten mit Zitat

Alsodanke erstmal
wenn ich zB nur ausgeben will
Code:
print left$(string$,1)

dann gehts aber ich mach ein CrackMe und da soll man ein KeyGen dazu machen also ich hab mir das so vorgestellt.
zB wenn die mail test@mail.de ist ist der Serial t144e.
"t" ist der Anfangbuchstabe
----
"144" ist wenn zB die Mail ide eingegeben wurde 12 Buchstaben lang ist wird 12*12 gerechnet
----
"e"ist der Endbuchstabe
dann wird das ganze mit
Code:
mail = left$(mail,1) & STR$(LEN(mail) * LEN(mail)) & right$(mail,1)
verglichen und dann wird der String "mail" und und der eingegebene Serial verglichen. Aber wenn ich es Compieleren will kommt da ein Error
Code:
CrackMe Easy.bas(23) : error 40: Expected 'END SUB' or 'END FUNCTION'mail = left(mail,1) & STR$(LEN(mail) * LEN(mail)) & right(mail,1) 
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 26.10.2005, 12:24    Titel: Antworten mit Zitat

Hallo!

Jedenfalls hier, vllt. auch in deinem Source, hast du nach mail immer das Dollarzeichen vergessen.

Also:

Code:

mail$ = left$(mail$,1) & STR$(LEN(mail$) * LEN(mail$)) & right$(mail$,1)


Oder hast du mail als String deklariert?

Greetings,
Mao
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
PoWeR



Anmeldungsdatum: 26.10.2005
Beiträge: 4

BeitragVerfasst am: 26.10.2005, 12:26    Titel: Antworten mit Zitat

Ja ich habs wie in VB gemacht also
Code:
DIM mail AS STRING


edit:
Ich benutze
Code:
OPTION EXPLICIT
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Mao



Anmeldungsdatum: 25.09.2005
Beiträge: 4409
Wohnort: /dev/hda1

BeitragVerfasst am: 26.10.2005, 12:27    Titel: Antworten mit Zitat

Oh, ich hab den Fehler gerade gesehn!

Um Strings aneinander zu hängen musst du ein + statt einem & wie in VB verwenden! zwinkern
_________________
Eine handvoll Glück reicht nie für zwei.
--
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
PoWeR



Anmeldungsdatum: 26.10.2005
Beiträge: 4

BeitragVerfasst am: 26.10.2005, 12:32    Titel: Antworten mit Zitat

Ohh... danke jetzt gehts happy
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu FreeBASIC. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz