Reg exp måske?

Prøv:

$matches = array();
preg_match_all('/trans\(\"([^\"]*)\"\)/is', $tekst, $matches);
print_r($matches);

Ehm.... kan du vb?

Hovsa, troede jeg listede rundt i PHP kategorien :P Det må du undskylde.

Det er okay :)

Er der andre der kan hjælpe?

hmm selve det regulære udtryk er måske godt nok
Du kan her se hvordan du i vbscript laver henholdsvis en test og en replace på et regulært udtryk, så er det blot at indsætte rednex´s udtryk i eksemplet sammen med din tekst :o)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsmthTest.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vsmthReplace.asp

Hmm hvordan bygger jeg mit pattern op i asp?

Jeg får en syntax error, fordi den pattern har lavet indeholder "

Fejlen:


Microsoft VBScript compilation error '800a03ea'

Syntax error

/core/functions/trans_scan.asp, line 81

response.write RegExpTest("/trans\(\"([^\"]*)\"\)/is", htmlencode(f.ReadAll))
--------------------------------------------^

ahh ja i php skal " escapes som \" i vbscript skal det være ""
fuldstændig som når du normalt laver strenge :o)
så prøv
response.write RegExpTest("/trans\(""([^\"]*)""\)/is", htmlencode(f.ReadAll))

hov sådan her
response.write RegExpTest("/trans\(""([^""]*)""\)/is", htmlencode(f.ReadAll))

jeg er ikke så stærk i reg.exp, så det er muligt de også skal escapes i reg.exp og derved bliver \"" ... og jeg kan heller ikke lure om udtrykket ellers giver det helt korrekte desværre.
Ville mest bare give links så du kunne se hvordan man udfører udtrykket i asp :o)

<%
StringToSearch = "qwerty trans(""...blabla"") asdfgh trans(""...blabla #2"") zxcvbn"
Response.Write StringToSearch & "<br>"

Set regEx = New RegExp
regEx.Pattern = "trans\(""(.*?)""\)"
regEx.Global = True
regEx.IgnoreCase = True
regEx.MultiLine = True

Set CurrentMatches = regEx.Execute(StringToSearch)

If CurrentMatches.Count > 0 Then
    For Each CurrentMatch in CurrentMatches
        If CurrentMatch.SubMatches.Count > 0 Then
            Response.Write CurrentMatch.SubMatches(0) & "<br>"
        End If
    Next
End If

Set regEx = Nothing
%>

det ser ud til at virke... med lidt modikationer.. ;) smid et svar...

Svar :^)