XProfan

Español

Richi

¡Hola,
Yo möchte una Texto con @MemPos mehrfach durchsuchen. Nur en Positionierung, el zweiten Abfrage scheine Soy un Denkfehler a haben ?
Kompilieren Marca Separación

Declare Dateigröße%,Put$,Daten#
Put$ = "C:\Geladene-Seite.txt"
lesen:
Dateigröße% = @FileSize(Put$)
Print "Dateigröße% = ";Dateigröße%;" Bytes"
Dim Daten#,Dateigröße%+100
ReadText Daten#,Put$
'---------------------test-------------------------
declare pos1%,pos2%,start%,anzahl%,pos3%,pos4%
start% = 0
pos1% = @MemPos(Daten#,start%,"<")' Suche von von Position 0
pos2% = @MemPos(Daten#,start%,">")' Suche von von Position 0
anzahl% = pos2% - pos1%' Berechne die Zeichen zwischen den Fundstellen
print "von:";pos1%;" bis ";pos2%;" Zeichen gefunden: "; @Char$(Daten#,pos1%, anzahl%+1)' Ausgabe der gefundenen Zeichen OK
start% = pos2%+1' Zeiger an die letzten Fund-Position +1
print "start%=";start%
' ------------------------- AB HIER ???
pos3% = @MemPos(Daten#,start%,"<")' ERWARTE SUCHE VON POSITION 9  = start% ???????????????
pos4% = @MemPos(Daten#,start%,">")' ERWARTE SUCHE VON POSITION 9  = start% ???????????????
anzahl% = pos4% - pos3%' Berechne die Zeichen zwischen den Fundstellen
print "von:";pos3%;" bis ";pos4%;" Zeichen gefunden: "; @Char$(Daten#,pos3%, anzahl%+1)' Ausgabe der gefundenen Zeichen / Erwartet wäre:'<befehl1>' ???
Print "Waitkey"
waitkey
Dispose Daten#
end

Mi Geladene-Página.txt:
Kompilieren Marca Separación

<body>
<befehl1>
<befehl2>HELLO WORLD
<befehl3>
<befehl4><befehl5>
</body>

Edición: Bild en el Anhang o siehe unten

Yo sería esperar el el Edición me folgendes ausgibt:

<body>
<befehl1>

Wo es mein Denkfehler oder unterliege Soy un Bug

??? Yo bastle como ya zwei Tage herum.

Gracias para el Ayuda

~~bild.jpg~~	13 kB

Kurzbeschreibung:	Edición

Hochgeladen:	15.11.2013

Ladeanzahl:
		~~Descargar~~

15.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

posx% es sí kein absoluter Valor, pero MemPos zählt de el neuen Startposition el Bytes a a nächsten Fundstelle - hier also 2.

So funktioniert lo:
@Char$(Daten#,start% + pos3%, anzahl%+1)
Usted musst Así que el Position/start% siempre "mitführen".

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

15.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Ach así - Yo weiß no genau, qué du erreichen willst, pero yo sería lo así hacer:
Kompilieren Marca Separación

Var s$ = "<body>\n<befehl1>\n<befehl2>HELLO WORLD\n<befehl3>\n<befehl4><befehl5>\n</body>"
Declare Array$[]
Array$[] = Explode(s$,"<")

WhileLoop 0,SizeOf(Array$[])-1

    Case SubStr$(Array$[&Loop],1,">") > "":Print SubStr$(Array$[&Loop],1,">")

Wend

Wai

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

15.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Richi

¡Hola Jörg,

Yo möchte así qué como en PHP el String-Función strip_tags hacer, wo todos HTML Befehle lejos voluntad.
Desde que no todos HTML Befehle angeben möchte usw sería Yo simplemente alles zwischen < y > de el Texto entfernen.

2. Nun hätte Yo wahrscheinlich auch Sachen como href Links en el Texto posición el debería Yo natürlich a antes heraus suchen puede

Yo habe ahora Mi rutina así verknotet el Yo no mehr durchblicke

Yo fange glaub una vez más morgen neu a

Für Ideen y Sugerencias Gracias

auch para deine Ayuda

15.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

Tal vez helfen como auch el regulären Ausdrücke,
etwa así :
Match$("<[a-zA-Z]{1,?}>", String$(bereich#, 0))

Mußte veces ausprobieren.

Benutze XPROFAN X3 + FREEPROFAN
Wir sind die XProfaner.
Sie werden von uns assimiliert.
Widerstand ist zwecklos!
Wir werden alle ihre Funktionen und Algorithmen den unseren hinzufügen.

Was die Borg können, können wir schon lange.

15.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Richi (15.11.13)

Yo möchte así qué como en PHP el String-Función strip_tags hacer, wo todos HTML Befehle lejos voluntad.
Desde que no todos HTML Befehle angeben möchte usw sería Yo simplemente alles zwischen < y > de el Texto entfernen.

Eigentlich könntest du entonces con meiner Método alles en un Liste escribir. El kannst du entonces abarbeiten y deinen Texto (Yo sería alles en un Stringvariable einlesen) mut Translate$() bearbeiten.

Richi (15.11.13)

2. Nun hätte Yo wahrscheinlich auch Sachen como href Links en el Texto posición el debería Yo natürlich a antes heraus suchen puede

Yo kenn mich como no así de - posición href-Links auch en spitzen Klammern (<href> </href>)? Je después de, si du el zugehörigen Links behalten willst, kannst du entonces Vorher el código en el gleiche Weise en href y /href parsen y el Links por Substr$() en un Liste einlesen.

Richi (15.11.13)

Yo habe ahora Mi rutina así verknotet el Yo no mehr durchblicke

Yo fange glaub una vez más morgen neu a

Das kenn Yo

Richi (15.11.13)

Für Ideen y Sugerencias Gracias

auch para deine Ayuda

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

15.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Jörg
Sellmeyer

Mit RegExp es auch bastante simplemente:
Kompilieren Marca Separación

Var s$ = "<body>\n<befehl1>\n<befehl2>HELLO WORLD\n<befehl3>\n<befehl4><befehl5>\n</body>\n"
Var a$ = s$
Cls
Match$("<(.*?)>",a$)

While %matchpos > 0

    Print Match$("<(.*?)>",a$)
    a$ = Del$(a$,1,%matchpos)

Wend

W

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

16.11.2013 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

H.Brill

¡Hola Jörg, genau el meinte Yo.
RegExp sería Yo vorziehen, porque uno como ya
el Systemvariablen $Match, &MatchPo, %MatchLen
siempre a Hand ha.
Ist auch una feine Sache en Verbindung con
@Translate$() y Instr(). Wenn una continuación
todavía en Rolands verlinkte Página (Ayuda) va,
se lo todavía interessanter.

PS: Hatte auch veces antes de algunos Monaten algo como
para Tags gebraucht :
Kompilieren Marca Separación

Declare String s
Declare String s1
Set("RegEx", 1)
Cls
s = "<img alt="
s1 = "<img 09abc8f="
Print Translate$(s, "<img [A-Za-z0-9]{1,}", "")
Print Translate$(s1, "<img [A-Za-z0-9]{1,}", "<***")
Waitkey