Fra [pic] til <img> med forskellige værdier

hvor henter du værdierne right left og center

place = "hent værdien"
link = "<p align='"&place&"'><img src='files/users/user_" & rsPicture("gUploadedBy") & "/pictures/" & rsPicture("gThumbnail") & "'></p>"

if place = "" then
place = "right"
end if

Prøv med dette:

Set re = New RegExp
re.Global = True
re.Pattern = "\[pic id=(\d+)( [^]]*)?]"
Set Matches = re.Execute(memotext)

For Each Match In Matches
    id = Match.SubMatches(0)

    align = Match.SubMatches(1)
    If "" & align = "" Then align = "right"

    sql = "SELECT * FROM gallery WHERE gID=" & id
    Set rsPicture = ConnMain.Execute(sql)

    If Not rsPicture.EOF OR Not rsPicture.BOF Then
        link = "<img src='files/users/user_" & rsPicture("gUploadedBy") & "/pictures/" & rsPicture("gThumbnail") & "' align='" & align & "'>"
    End If

    memotext = Replace(memotext, Match, link)
    a = a+1
Next

Så langt der er jeg også kommet på en måde, men mit problem er at hente værdien ud af [pic].

Eks på et pic.
[pic id=123 center]

Den henter værdien id med d+, jeg skal så bare have den til at teste om der er en justeringsværdi og i det tilfælde hvilken...

Øh? Jeg har jo lavet om i dit pattern, og tjekker på Match.SubMatches(1), af samme årsag.

Okay, beskeden fra 09:25:11 var der ikke da jeg begyndte at skrive mit svar.
Men jeg skynder mig lige at tjekke den kode :)

Ahhh :^)

Pattern'et skal da vist i øvrigt se sådan her ud:

re.Pattern = "\[pic id=(\d+)( [^]]*)?\]"

Så ser det ud til at virke, rettede lige lidt i pattern, da din kode lavede mellemrum før align-værdien.
Så den færdige kode ser sådan ud:

Set re = New RegExp
re.Global = True
re.Pattern = "\[pic id=(\d+) ([^]]*)?\]"
Set matches = re.Execute(memotext)

For Each match In matches
  id = match.SubMatches(0)

  align = Match.SubMatches(1)
  If "" & align = "" Then align = "right"

  sql = "select * from gallery where gID=" & id
  Set rsPicture = ConnMain.Execute(sql)

  If not rsPicture.EOF OR not rsPicture.BOF Then

  If align = "center" Then
  link = "<center><img src='files/users/user_" & rsPicture("gUploadedBy") & "/pictures/" & rsPicture("gThumbnail") & "'></center>"
  Else
  link = "<img src='files/users/user_" & rsPicture("gUploadedBy") & "/pictures/" & rsPicture("gThumbnail") & "' align='" & align & "'>"
  End If

  End If

  memotext = Replace(memotext, match, link)

Next


Jeg forstår ikke helt logiken i re.Pattern, men hovedsagen er jo at det virker :D
Så mange tak for hjælpen og hvis du så lægger et svar så sender jeg straks 100 point til dig :)

Det er rigtigt nok at den lavede den lille fejl. Men i din ny version så virkere den ikke på dem uden [pic id=123] i det du forudsætter at der er et mellemrum efter id-delen. Prøv med dette i stedet:

re.Pattern = "\[pic id=(\d+) ?([^]]*)?\]"

Jep den viste ikke billede hvis der ikke var justeringsværdi, men den nye pattern virker fint.

Forklaring af mønsteret:

\[pic id=(\d+) ?([^]]*)?\]

Well, du har jo tjek på den første del:

\[pic id=(\d+)...\]

- så jeg vil nøjes med at forklare hvad der sker i resten:

" ?([^]]*)?"

Et pørgsmålstegn indikere at "det er valgfrit om det skal være der":

" ?" - matcher altså "et mellemrum som er valgfrit".

[^]] - matcher "ethvert tegn som ikke er et ]-tegn". Hvis man ønsker at bruge et ]-tegn inden i et [...]-sæt, så skal den være på første plads.

[^]]* - matcher derfor "0 eller flere tegn som ikke er et ]-tegn". Grunden til at jeg bruger dette delmønster, er at vi ønsker at få fat i resten hen til det afsluttende ]-tegn i "[pic id=123 center]".

([^]]*) - (...) betyder at det der matcher, bliver husket. I dette tilfælde har du jo en (...) tidligere i mønsteret. Den føste huskes som match.SubMatches(0) og den anden som match.SubMatches(1). Havde du haft flere ville disse blive husket som match.SubMatches(2), match.SubMatches(3), osv.

([^]]*)? - Spørgsmålstegnet gør som sagt at dette del-led er valgfrit.


Håber at det forklarede sagen? Ellers må du bare spørge.


... og et svar. :^)

Okay det var da lidt en forklaring, men tror jeg bliver nød til at sætte mig ned en dag og så afprøve hver funktion, for at forstå det helt.

Men siger da mange tak for denne forklaring, den får jeg jo nok brug for en gang i mellem. Og så slipper jeg måske for at skulle spørge så meget :D