 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
chutullu
Anmeldungsdatum: 18.10.2005
Beiträge: 77
|
 Verfasst am: 13.03.2006, 14:33 Titel: Reguläre Ausdrücke |
 |
|
Hi Forum,
vielleicht kann mir jemand helfen ?
Ich möchte folgenden regulären Ausdruck anwenden :
Leider scheint die Bibo 'regex.bi' nicht richtig zu funktionieren, da
| Code: | | reg$ = ".*,(1,15),.*"+chr$(10) |
garkein und ohne Klammer,
| Code: | | reg$ = ".*,1,15,.*"+chr$(10) |
alle Ergebnisse liefert.
Mein Daten liegen als CSV in derart vor:
| Code: | 1,2,3,4
3,2,1,3
usw. |
|
|
| Nach oben |
|
 |
Michael Frey
Anmeldungsdatum: 18.12.2004
Beiträge: 2577
Wohnort: Schweiz
|
| Verfasst am: 13.03.2006, 18:27 Titel: |
|
|
Kannst du bitte den Ganzen Quellcode Posten, im moment versteh ich Bahnhof.
Was soll eigentlich dabei Raus kommen? |
|
| Nach oben |
|
|
chutullu
Anmeldungsdatum: 18.10.2005
Beiträge: 77
|
| Verfasst am: 13.03.2006, 19:01 Titel: |
|
|
Der Quellcode ist eigentlich unerheblich aber wie gewünscht :
| Code: | option explicit
'$include: "regex.bi"
declare sub reg_match( byval pattern as string, byval buffer as string )
dim a$,buffer$
open "sheet.csv" for input as #1
do:
line input #1, a$
buffer$ = buffer$ + a$+chr$(10)
loop until eof(1)
close #1
print reg_match( ".*,(1),.*\n", buffer$ )
sleep
sub reg_match( byval pattern as string, byval buffer as string )
dim re as regex_t
dim pm as regmatch_t
dim pbuff as zstring ptr
dim res as integer
dim dummy$
pbuff = strptr(buffer)
regcomp(@re, pattern, 0 )
res = regexec( @re, pbuff, 1, @pm, 0 )
do while(res = 0)
dummy$ = dummy$ + mid$( *pbuff, 1 + pm.rm_so, pm.rm_eo - pm.rm_so )+chr(10)
pbuff += pm.rm_eo
res = regexec(@re, pbuff, 1, @pm, REG_NOTBOL)
loop
regfree( @re )
return (dummy$)
end sub |
|
|
| Nach oben |
|
|
MisterD
Anmeldungsdatum: 10.09.2004
Beiträge: 3071
Wohnort: bei Darmstadt
|
| Verfasst am: 14.03.2006, 00:46 Titel: |
|
|
http://nopaste.freebasic.de/index.php?view=267
vielleicht kannste damit bisschen rumprobieren ob dein regex funktioniert so wie du ihn hast.. einfach includen und mal bisschen ausprobieren wie im beispiel beschrieben.
_________________
"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 |
|
| Nach oben |
|
|
|
|
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.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
