VBS funzione di estrazione stringa da db con campi che contengono tag html

[TOPUS]

Ciao a tutti.. sto facendo un sito piuttosto complesso nel senso che ha al suo interno varie tecnologie..

comunque da un db prendo un campo che contiene il nome di un file .mp3 ma che contiene anche dei tag html e xml e forse potrebbe anche contenere una img, questo nome di file audio lo passo poi ad un lettore audio fatto in flash.. tutto abbastanza bene se non una cretinissima cosa (al solito)

uso questa funzione... per estrarre il nome file e non funziona bene, prima mi andava in loop perchè non trovava il file (qualche volta il campo potrebbe essere vuoto o solo con i tag)

e questa è la funzione
ha qualcuno un po' di tempo per leggerla (io ho problemi con la sintassi di vbs dovendomela inventare spesso, tipo non trovavo una istruzione che breakkasse il do while)


imagesrc = rs("media")

'___________funzione ricava nomesuono (anche se per il nome sembra che ricavi l'img
Function ricavaImg(imagesrc)
' estrapola solo il nome file del suono dal campo imagesrc

dim testimg, len_txt, i, iniz,fin,fname1,nfile

iniz=0
fin=0
fname1=""
nfile=""
testimg = imagesrc
len_txt=len(testimg)
i=1

do while i< len_txt+1

iniz=(instr(i,testimg,"<item>"))+6
if iniz>6 then
fin=(instr(iniz,testimg,"</item>"))
end if

if fin>iniz then
fname1 = mid(testimg, iniz, (fin-iniz))
if (instr(1, fname1,".mp3") >0) or (instr(1,fname1,".wav") >0) then
nfile = fname1
assegnato = true
else
nfile=""
end if
i = fin-iniz
end if
if assegnato=true then
i=len_txt+1
else
i=i+1
end if
loop

ricavaImg=nfile

End Function

'_____________END FUNCTION
' poi questo image lo passo al'embed di flash:

codeflash = "<object classid='clsid27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab' width='130' height='22' align='top' title='Suoni'><param name='src' value='leggisuoni.swf?nomefile='"
codeflash2 ="><param name='SCALE' value='exactfit'><embed src='leggisuoni.swf?nomefile='"
codeflash3="width='130' height='22' align='top' pluginspage='http://www.macromedia.com/go/getflashplayer' quality='best' wmode='transparent' bgcolor='#b0e6ff' scale='exactfit'></embed></object>"

image = ricavaImg(imagesrc)
if image <>"" then
image = codeflash & image & codeflash2 & image & codeflash3
else
image="[img]../img/nosound.jpg[/img]"
end if

e poi nella tabella :
<%=image%>

[TOPUS]

ho capito nessuno mi vuole bene ecco

almeno qualcuno può dirmi perchè il mio post ha un pallettone nero nella cartella???
e poi in vbscript come si interrompe bruscamnete un do while???
ciao :master:

[Mems]

Il pallino nero indica i topic da te aperti o quelli in cui tu hai risposto.

[Santino83_02]

mi fai un esempio di cosa potresti trovare nel tuo campo del db e che risultato vorresti ottenere? fammi l'esempio piu semplice e quello piu complesso

[TOPUS]

nel campo ci sarà sicuramente
<?xml version="1.0"?><media></media>
se vuoto


se invece c'è qualcosa potrebbe essere:

<?xml version="1.0"?><media><item>nomefile.jpg</item></media>

oppure

<?xml version="1.0"?><media><item>chapter5.mp3</item><item>nomefile5.jpg</item></media>

o a volte più file

<?xml version="1.0"?><media><item>chapter5.jpg</item><item>nomefile5.jpg</item><item>nomefile6.jpg</item></media>

[TOPUS]

ho fatto alcune modifiche e siccome la uso in molti file ne ho fatto una funzione da includere

<%
'___________funzione per ricavare solo il nome file senza tag
Function ricavaImg(imagesrc,cosa)
' estrapola solo il nome file dell'immagine dal campo imagesrc

dim testimg, len_txt, i, iniz,fin,fname1,nfile, assegnato


'definisci quale estensione cercare
if cosa <> "IMG" then
primo=".mp3"
secondo=".wav"
else
primo =".jpg"
secondo=".gif"
end if

iniz=0
fin=0
assegnato=false
fname1=""
nfile=""
testimg = imagesrc
len_txt=len(testimg)
i=1

do while i< len_txt+1

iniz=(instr(i,testimg,"<item>"))+6
if iniz>6 then
fin=(instr(iniz,testimg,"</item>"))-1
end if

if fin>iniz then
fname1 = mid(testimg, iniz, (fin-iniz))
if (instr(1, fname1,primo) >0) or (instr(1,fname1,secondo) >0) then
nfile = fname1
assegnato = true
else
nfile=""
end if
i = fin-iniz
end if
if assegnato <> false then
i=len_txt+1
else
i=i+1
end if
loop

ricavaImg=nfile

End Function

'_____________END FUNCTION
%>

ma va in loop lo stesso...
perchè...sicuramnete è un errore di sintassi ma non lo vedo...qualcuno ha una vista migliore della mia...!????
grazie....

[TOPUS]

ho trovato cosa lo infastidiva,...
<?xml version="1.0"?>

questa roba non mi permetteva di trovare il tag<item>
ora non ho tempo di vedere perchè e con un rozzo sotituisci l'ho tolto direttamente dal db
ma se qualcuno ha idea del perchè...solo per mia curiosità gliene sarei veramente riconoscente

ciao