[vbs]ricerca di un termine nella stringa

[Aki]

Ciao raga,
se io ho una stringa così:

Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322)

avuta grazie a

request.servervariables("HTTP_USER_AGENT")

all'interno della stringa come faccio, tramite ciclo if a vedere se è presente, tra le altre, la parole MSIE?

[willybit]

Ciao Aki,

puoi usare InStr che restituisce la posizione di una sottostringa in una stringa

if InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE")>0 then
  Response.Write "è MSIE"
else
  Response.Write "NON è MSIE"
end if

(if non è un ciclo ;-) )

[Aki]

Originariamente inviato da willybit
Ciao Aki,

puoi usare InStr che restituisce la posizione di una sottostringa in una stringa

if InStr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE")>0 then
  Response.Write "è MSIE"
else
  Response.Write "NON è MSIE"
end if

(if non è un ciclo ;-) )

ok grazie

e lo so che l'if non è un ciclo però scrivendo di fretta si può sbagliare
Ciauz

[deivnet]

Fai il confronto così ma invece di maggiore di 0 metti maggiore di -1 perchè metti il caso (impossibile) che la stringa sia all'inizio, la instr ritorna 0.

if InStr(Request.ServerVariables("HTTP_USER_AGENT")," MSIE")>-1 then
Response.Write "è MSIE"
else
Response.Write "NON è MSIE"
end if

[willybit]

Originariamente inviato da deivnet
Fai il confronto così ma invece di maggiore di 0 metti maggiore di -1 perchè metti il caso (impossibile) che la stringa sia all'inizio, la instr ritorna 0.

if InStr(Request.ServerVariables("HTTP_USER_AGENT")," MSIE")>-1 then
Response.Write "è MSIE"
else
Response.Write "NON è MSIE"
end if

mi dispiace contraddirti deivnet ma fai confusione con altri linguaggi... in VBScript le stringhe partono da 1 come primo carattere e non da 0.
InStr restituisce 0 se non trova la sottostringa nella stringa

[deivnet]

E' vero che comincia da 1, ma mi è gia capitato che invece mi ritornasse -1, non vorrei che fosse su un vecchio motore VBScript.
E' una situazione che mi è già capitata. Però la tua è senza dubbio quella più corretta.

[Aki]

Originariamente inviato da deivnet
E' vero che comincia da 1, ma mi è gia capitato che invece mi ritornasse -1, non vorrei che fosse su un vecchio motore VBScript.
E' una situazione che mi è già capitata. Però la tua è senza dubbio quella più corretta.

unque ho scritto così:

if InStr(request.ServerVariables("HTTP_USER_AGENT")), "Netscape") <> 0 then
   response.Write("Netscape")
elseif InStr(request.ServerVariables("HTTP_USER_AGENT")), "Firefox") <> 0 then
   response.Write("Firefox")
elseif InStr(request.ServerVariables("HTTP_USER_AGENT")), "MSIE") <> 0 then
   response.Write("Internet explorer")
end if

giusto?

[Aki]

up

[Aki]

up

[maximum]

Meglio così:

if InStr(request.ServerVariables("HTTP_USER_AGENT")), "Netscape") > 0 then
   response.Write("Netscape")
elseif InStr(request.ServerVariables("HTTP_USER_AGENT")), "Firefox") > 0 then
   response.Write("Firefox")
elseif InStr(request.ServerVariables("HTTP_USER_AGENT")), "MSIE") > 0 then
   response.Write("Internet explorer")
end if