XProfan

Français

Richi

Salut,
je voudrais une Text avec @MemPos mehrfach fouiller. seulement chez qui Positionierung, qui zweiten Abfrage scheine je une Denkfehler trop avons ?
Kompilieren Marque Séparation

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

mon Geladene-page.txt:
Kompilieren Marque Séparation

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

Ausgabe: Bild im Anhang bzw siehe unten

je serait erwarten cela qui Ausgabe mir folgendes ausgibt:

<body>
<befehl1>

wohin ist mon Denkfehler ou bien unterliege je une Bug

??? je bastle là déjà deux Tage herum.

merci pour qui Aider

~~bild.jpg~~	13 kB

Kurzbeschreibung:	Ausgabe

Hochgeladen:	15.11.2013

Downloadcounter:
		~~Download~~

15.11.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

posx% ist oui ne...aucune absoluter Wert, mais MemPos zählt ab qui neuen Startposition qui Bytes jusqu'à zur prochain Fundstelle - ici alors 2.

So funktioniert es:
@Char$(données#,start% + pos3%, anzahl%+1)
Du musst alors qui Position/start% toujours "mitführen".

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

15.11.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

ah bon - je ne sais pas oui c'est ca, quoi du erreichen veux, mais je serait es so faire:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

Richi

allô Jörg,

je voudrais so quoi comment dans PHP qui String-Funktion strip_tags faire, wohin alle HTML Befehle entfernt volonté.
là je pas alle HTML Befehle angeben voudrais usw serait je simple alles entre < et > aus dem Text entfernen.

2. eh bien hätte je wahrscheinlich aussi Sachen comment href à gauche im Text stehen qui sollte je naturellement trop avant heraus chercher peut

j'ai maintenant Ma routine so verknotet le moi pas plus durchblicke

je fange glaub encore la fois demain récente à

Pour idées et Anregungen merci

aussi pour deine Aider

15.11.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

H.Brill

peut-être aider là aussi qui regulären Ausdrücke,
etwa so :
Match$("<[a-zA-Z]{1,?}>", String$(bereich#, 0))

Mußte la fois 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 citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

Richi (15.11.13)

je voudrais so quoi comment dans PHP qui String-Funktion strip_tags faire, wohin alle HTML Befehle entfernt volonté.
là je pas alle HTML Befehle angeben voudrais usw serait je simple alles entre < et > aus dem Text entfernen.

Eigentlich könntest du ensuite avec meiner Methode alles dans un liste écrivons. qui peux du ensuite abarbeiten et deinen Text (je serait alles dans un Stringvariable einlesen) mut Translate$() Travailler.

Richi (15.11.13)

2. eh bien hätte je wahrscheinlich aussi Sachen comment href à gauche im Text stehen qui sollte je naturellement trop avant heraus chercher peut

je kenn mich là pas so aus - stehen href-à gauche aussi dans spitzen Klammern (<href> </href>)? Je après que, si du qui zugehörigen à gauche behalten veux, peux du ensuite auparavant den Code sur qui gleiche Weise sur href et /href parsen et qui à gauche per Substr$() dans un liste einlesen.

Richi (15.11.13)

j'ai maintenant Ma routine so verknotet le moi pas plus durchblicke

je fange glaub encore la fois demain récente à

cela kenn je

Richi (15.11.13)

Pour idées et Anregungen merci

aussi pour deine Aider

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

15.11.2013 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Jörg
Sellmeyer

avec RegExp ca va aussi entier simple:
Kompilieren Marque Séparation

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 citation

Absatzweise Citation Zeilenweise Citation

H.Brill

allô Jörg, oui c'est ca cela meinte je.
RegExp serait je préférer, weil on là déjà
qui Système $Match, &MatchPo, %MatchLen
toujours zur main hat.
Ist aussi une feine l'affaire dans liaison avec
@Translate$() et Instr(). si on ensuite
encore sur Rolands verlinkte page (Aider) allez,
wird es encore interessanter.

PS: Hatte aussi la fois avant einigen Monaten quelque chose comme
pour Tags gebraucht :
Kompilieren Marque Séparation

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