DIM t AS STRING
DIM text1 AS STRING
DIM text2 AS STRING
DIM text3 AS STRING
DIM i AS LONG
DIM x AS LONG
DIM y AS LONG
 
 
OPEN "d:\test\so27.txt" FOR INPUT AS #1
'Inhalt von so27.txt:
'<enclosure url="http://www.domainname.de/datei.exe" length="10510273" 
' type="application/x-msdos-program"/>
 
WHILE NOT EOF(1)
    LINE INPUT #1, t
 
    i = INSTR( t, "<enclosure")
    x=0
    y=0
    IF i THEN
        x = INSTR(i+1, t, CHR(34))
        y = INSTR(x+1, t, CHR(34))
        text1 = MID( t, x+1, y-x-1)
        x= INSTR(y+1,t, CHR(34))
        y = INSTR(x+1, t, CHR(34))
        text2 = MID(t, x+1, y-x-1)
        x= INSTR(y+1, t, CHR(34))
        y = INSTR(x+1, t, CHR(34))
        text3 = MID(t, x+1, y-x-1)
    END IF
WEND
 
CLOSE
t = text1 & chr(13)& chr(10) & text2 & chr(13)& chr(10) & text3 
'chr(13)& chr(10) kann durch VBCrLf ersetzt werden.
 
msgbox (t)