Gestione stringhe

[roberto_g]

Ciao a tutti.

Sto cecando di mettere in ordine queste strimghe ma la mia scarsa conoscenza del linguaggio mi crea dei... problemini.

In pratica dovrei aprire una cartella, scorrere un file alla volta , scrivere il NOME FILE, poi tramite altro comando scrivere una determinata INFO e poi passare al file successivo.
Ho provato facendo cosi:

<%
response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(".\"))
Set Jpeg = Server.CreateObject("Persits.Jpeg")


For Each objItem In cartella.files

  response.write "<hr>"
  response.write "Nome File: <a href="&objItem.Name&">"&objItem.Name&""
  response.write "</a>"


Next
response.write "<hr>"
response.write "
"

	
	Path = Server.MapPath("../images/link.jpg")
              Set Info = Jpeg.OpenInfo( Path )

	
Dim s
s = Info("IptcCaption")
		Response.Write s
		
%>

I blocchi funzionano, infatti mi appare la lista dei files e poi mi appare pure la INFO relativa al file "link.jpg" che si trova nella stessa cartella.
Però non so come scrivere insieme al nome del file anche la INFO del file trovato in precedenza....

[optime]

la capoccetta invece di sbatterla contro il muro si può provare ad accenderla e usarla

così come hai fatto per la stampa del nome, metti anche la parte INFO dentro al ciclo. dai che è facile

[roberto_g]

Bè, grazie per lo stimolo ma come premesso la mia pratica è davvero poca.
Ho fatto diversi tentativi ma ho sempre otteuto solo errori....

Mi sa che , anzi di certo devo modificare

Path = Server.MapPath("../images/link.jpg") per fare in modo che cambi ogni volta, quindi metterlo dentro a FOR EACH ....giusto ?
Ma tra virgolette ci devo mettere objItem.Name ?


E poi
Set Info = Jpeg.OpenInfo( Path ) ???

[optime]

sì, ma senza le virgolette

poi posta lo script che lo si controlla

[roberto_g]

Adesso funziona ! Disordinato ma funziona.
Devo solo trasformare i dati in stringhe per poi inserirli nel database, ma credo che in automatico sia impossibile, no ? Inoltre ho una cartella con dverse migliaia di foto in alta risoluzione, mi sa che è pesantina la cosa per il server...

<%
response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(".\"))
Set Jpeg = Server.CreateObject("Persits.Jpeg")

For Each objItem In cartella.files

response.write "<hr>"

Path = Server.MapPath( objItem.Name )
Set Info = Jpeg.OpenInfo( Path )
Dim s
s = Info("IptcCaption")
		Response.Write s


  response.write "Scarica: <a href="&objItem.Name&">"&objItem.Name&""
  response.write "</a>"


Next
response.write "<hr>"
response.write "
"
%>

[optime]

Originariamente inviato da roberto_g
Adesso funziona ! Disordinato ma funziona.

optime!

Originariamente inviato da roberto_g
Devo solo trasformare i dati in stringhe per poi inserirli nel database, ma credo che in automatico sia impossibile, no ?

non ho capito

Originariamente inviato da roberto_g
Inoltre ho una cartella con dverse migliaia di foto in alta risoluzione, mi sa che è pesantina la cosa per il server...

may be...

[roberto_g]

In pratica:
Ho una cartella contenente un'infinità di di foto.
Ora dovrei inserire in un database il nome del file e le relative INFO che utilizzerei nel modulo di ricerca.

Con questo script vorrei generare dei link attraverso i quali passare i dati al database.
un cosa tipo
<a href="page.asp?nomefile=ObjItem&descrizione=foto del Duomo di Milano">

Non è possibile in automatico creare la suddetta stringa, aprire il database, inserirla e poi passare al file successivo, vero ?

Come faccio ad escludere i files che non abbiano un'estensione .jpg ?

[roberto_g]

Allora, cosi funziona QUASI del tutto:

<%
response.expireS=-100
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set Cartella = objFSO.GetFolder(Server.mappath(".\"))
Set Jpeg = Server.CreateObject("Persits.Jpeg")

For Each objItem In cartella.files

response.write "<hr>"

Path = Server.MapPath( objItem.Name )
Set Info = Jpeg.OpenInfo( Path )
Dim s
s = Info("IptcCaption")
		


  response.write "Nome File: <a href=inserisci.asp?nomeFile="&objItem.Name&"&InfoFile="
  response.write ""&s&""
  response.write ">"
  response.write objItem.Name
 
  response.write "</a>"


Next

%>

Dico QUASI perchè se la InfoFile contiene spazi vuoti il link risulta "tagliato"....

[Roby_72]

response.write "Nome File: "& objItem.Name &""

Roby

[roberto_g]

Grazie Roby !!!

Per quanto riguarda l'estensione dei file lascio perdere, tanto in tutta la cartella dovrei avere solo un file estraneo.

Trattandosi di migliaia di immagini ho il problema di sapere cosa ho gia spedito all'altro frame, ma un vlink dovrebbe bastare.

Una curiosità, visto che sono molto capra... come mai adesso la stringa non si ferma quando trova uno spazio vuoto ?