udtræk af data

Måske noget i stil med:

<?php
//http://www.eksperten.dk/spm/690736

$kode = "Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)
Sub Test1()
End Sub

Sub Test2(strText As String)
End Sub

Function Test3(strText As String) As String
End Function";

if(preg_match_all('/^Declare\\s(Sub)\\s(.+?)\\s.+\\((.+?)\\)$/im', $kode, $match))
{
    echo "<pre>";
    print_r($match);
    echo "</pre>";
}

if(preg_match_all('/^(Sub)\\s(.+?)\\((.*?)\\)$/im', $kode, $match, PREG_PATTERN_ORDER))
{
    echo "<pre>";
    print_r($match);
    echo "</pre>";
}

if(preg_match_all('/^(Function)\\s(.+?)\\((.*?)\\)\\s(.+)$/im', $kode, $match, PREG_PATTERN_ORDER))
{
    echo "<pre>";
    print_r($match);
    echo "</pre>";
}

?>

hmm jeg får kun den ene ud :(

Array
(
    [0] => Array
        (
            [0] => Function Test3(strText As String) As String
        )

    [1] => Array
        (
            [0] => Function
        )

    [2] => Array
        (
            [0] => Test3
        )

    [3] => Array
        (
            [0] => strText As String
        )

    [4] => Array
        (
            [0] => As String
        )

)

Hvordan har du alt det kode/teekst som skal søges igennem liggende?

hvad mener du?? det er visual basic (vb6) funktioner..

Ja, men hvordan kommer koden ind i php scriptet?

<?php
  if ($_POST["vbcode"]) {
    $strCode = stripslashes($_POST["vbcode"]);
  }
?>

<form method="post" action="index.php">
  <textarea name="vbcode" rows="20" cols="100"><? echo $strCode; ?></textarea><br>
  <input type="submit" value=" go4 ">
</form>

men jeg tested det bare som du haved lavet det med $kode = "...";

Prøv at se min kode her: http://www.codebreaker.dk/exp/690736.php

okææ men sådan virker den ikke hos mig.. se: http://vbhansen.dk/690736.php

Prøv evt i regexp'erne at fjern: ^ og $ i start og slut af dem...

virker :D

smid et svar

Svar!

men der er lige noget med nummer 2 det ser forkert ud:

Array
(
    [0] => Array
        (
            [0] => Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
            [1] => Sub Test1()
            [2] => Sub Test2(strText As String)
        )

    [1] => Array
        (
            [0] => Sub
            [1] => Sub
            [2] => Sub
        )

    [2] => Array
        (
            [0] => Sleep Lib "kernel32"
            [1] => Test1
            [2] => Test2
        )

    [3] => Array
        (
            [0] => ByVal dwMilliseconds As Long
            [1] =>
            [2] => strText As String
        )

)

Det er fordi vi nu har fjernet ^ fra starten! :o(

hmm ha ha.. så setter vi da bare den på igen.. nu tror jeg det virker :D
mange tak for hjælpen.. skulle du finde en bedre måde at lave det på så er du velkommen til at komme med koden :d

Tak for point!
Og ved ikke lige hvordan det skulle laves nemmere.
Det kode som kommer som input, kan jo variere meget, så tror det bliver svært.

Jeg kan se det ikke var så nemt alivel.. men kan du ikke lige se på den igen..

det jeg skal bruge: (opdelt med | er kun for at vise array)
----------------------------------------------------------
Sleep | ByVal dwMilliseconds As Long
SleepNy | ByVal dwMilliseconds As Long
GetProp | ByVal hwnd As Long, ByVal lpString As String | As Long
CreateCompatibleDC | ByVal hdc As Long | As Long
Test1
Test2 | strText As String
Test3 | strText As String | As String
----------------------------------------------------------


"Function" eller "Sub" [OUTPUT1] "("[OUTPUT2]")" [OUTPUT3]

[OUTPUT1] = funktion eller sub navn (vil altid kun indenholde [A-Z0-9_&] stoppes af space)
[OUTPUT2] = options (starter og slutter altid med parentes)
[OUTPUT3] = return vadi (hvis det er en Sub vil der ikke være en return vadi, kun Function kan ha en return vadi)


$kode = "
Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)
Declare Sub SleepNy Lib \"kernel32\" Alias \"Sleep\" (ByVal dwMilliseconds As Long)
Declare Function GetProp Lib \"user32\" Alias \"GetPropA\" (ByVal hwnd As Long, ByVal lpString As String) As Long
Declare Function CreateCompatibleDC Lib \"gdi32\" (ByVal hdc As Long) As Long

Sub Test1()
End Sub

Sub Test2(strText As String)
End Sub

Function Test3(strText As String) As String
End Function";

Du skal nok få flere point ;)

Jeg tror måske du hellere selv skulle prøve at rode lidt! :o)
Prøv at hent et program som hedder REGEXBUDDY
Det er godt til at lave regexp'er med.

virker det tal alle php's -> preg_match_all(), preg_replace(), preg_match(), ereg(), eregi() ??

Stort set!
Og det skal ikke opfattes som jeg ikke vil hjælpe dig, men det program er altså alle pengede værd. (hvis du jævnligt leger med regexp)

Ja det kan jeg se.. men hvordan fortæller man den at den kun skal vise det som står (.*) og ikke alt det andet + at stoppe ved et mellemrum

.* er lige med:

. = alle tegn
* = 0 eller flere tegn.
Regexp er grådig, så den tager alle tegn.
Hvis du laver:
(.*?)\s
Vil den tage alle tegn, indtil første mellemrum.

altså : (Function|Sub) (.1) \((.2)\) (.3)

viser så kun
.1
.2
.3

Hvis vi tager denne streng:
Declare Sub Sleep Lib \"kernel32\" (ByVal dwMilliseconds As Long)
og du skal have fat i Sleep.
så ville jeg lave:
Declare\sSub\s(.*?)\sLib
Så vil Sleep blive fanget i () og du får den ud i et array.

hvordan gør man så hvis noget ikke skal ud.. fx:

Declare\sSub\s(.*?)\sLib(det som står her)\((.*)\)

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Prøv denne:
Declare\sSub\s(.*?)\sLib\s\"(.*?)\"\s\((.*?)\)