Gestione e lettura di stringhe

**maxolino** · 10-11-2004, 02:22

Ciao ragazzi ho bisogno del vostro aiuto!!!

Il problema è questo:
ho una stringa molto lunga di questo tipo:

risultato 1

risultato 2

e così via....

Inserendo un valore dato da me, ad esempio "risultato 2", devo trovare il modo di fare contare in che posizione si trova e restituirmi il valore....

Avevo pensato di fare qualcosa tipo:
Prendi da b a /b, e controlla con un InStr ...... Solo che come faccio a passare al risultato successivo????

Grazie
Ciaoooooo

**teorema55** · 10-11-2004, 09:13

Se quello che cerchi è tipo questo , è stato ottenuto all'incirca così:

codice:

<%
dim arr(5)
arr(0) = "primo valore"
arr(1) = "secondo valore"
arr(2) = "terzo valore"
arr(3) = "quarto valore"
arr(4) = "quinto valore"

response.write("Queste sono le stringhe e le relative posizioni
")

for i=0 to 4
	response.write("La stringa  "&arr(i)&" si trova nella posizione n° "&i+1&"
")
next
%>

In sostanza si tratta di inserire le stringhe in un array, e poi di recuperarne la posizione come

posizione stringa = indice di quella stringa nell'array + 1

**maxolino** · 10-11-2004, 13:14

Il problema è...
Come faccio ad inserire la stringa in un array dal momento me a me mi restituisce un valore unico.....

cucina in muratura

cucina in acciaio inox>
Ecc..

Devo dirgli di prendere il valore tra un e un ...

Ma come si fa?

**rixx** · 10-11-2004, 13:16

codice:

<%
Function ExtractStr(s, strDa, strA, setTrim)
PosDa = InStr(s, strDa)
PosA = InStr(s, strA)
If PosA > 0 And PosDa > 0 Then
s = Mid(s, PosDa + Len(strDa), PosA - PosDa - Len(strDa))
If IsNull(setTrim) = False And setTrim = True Then
ExtractStr = LTrim(RTrim(s))
Else
ExtractStr = s
End If
Else
ExtractStr = ""
End If
End Function
%>

richiamato da:

codice:

Result ExtractStr("questo è un testo molto corto ed è veloce da leggere","",",false)

fonte: html.it/asp/funzioni

**morphy79** · 10-11-2004, 13:27

se controllassi anche gli altri forum su cui posti troveresti la mia risposta già da 2 ore !!!!!!!!

cmq ho creato sta funzione apposta :

http://www.aspcode.it/tips/tips.asp?...ow_tip&idx=103

ciauz !!!!

**maxolino** · 10-11-2004, 14:29

Grazie dell'interessamento ma credo di essermi spiegato male.

Faccio un esempio concreto.

In una variabile ho questo codice:

a= "massimo
andrea
giuseppe
massimiliano
luigi
rodolfo
jenny
simon
marcello
francesco

A questo punto, io una form precedente avrei dovuto inserire un nome:
se io avessi inserito il nome giuseppe, dovrei avere una risposta del tipo:

il nome giuseppe è in terza posizione....

se avessi messo simo mi avrebbe dovuto dire che era in ottava posizione....

Purtroppo con le funzioni che mi avete suggerito non sono riuscito a farlo

Grazie
ciaoooooo

**optime** · 10-11-2004, 14:33

splitta su
, poi cerchi - con INSTR - scorrendo l'array

**teorema55** · 10-11-2004, 17:59

E di questo che ne dici?

**maxolino** · 10-11-2004, 18:04

Sono svenuto............

O_o

Impressionante...

Niente mi dai una dritta?????

**teorema55** · 10-11-2004, 18:05

Il codice:

codice:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK href="verdana.css" type="text/css" rel="stylesheet">
<script language="JavaScript">
<!--
function controlla(){
	var control;
	control="true";
	
		if (control=="true") {
			if (document.conta.nome.value=="") {
				alert("Cominciamo con le furbate? Inserisci un nome!");
				document.conta.nome.focus();
				control="false";
			}
		}
		
		if (control=="true") {
			document.conta.action="posizione_nell_array.asp";
			document.conta.submit();
		}
		
}
//-->
</script>

</head>

<body>
<%
function RemoveTags(txt)
  dim tmptxt
  tmptxt = txt

   if IsNull(tmptxt) then
    exit function
  end if

  dim i, pos1, pos2
   do
    pos1 = Instr(tmptxt, "<")
   if pos1=0 then
      exit do
    else
       pos2 = Instr(pos1, tmptxt, ">")
       if pos2=0 then
        exit do
      else
        tmptxt = Left(tmptxt, pos1-1)&Mid(tmptxt, pos2+1)
      end if
    end if
  loop
  RemoveTags = tmptxt
end function

a = ""
tester = ""
iniz = "massimo
andrea
giuseppe
massimiliano
luigi
rodolfo
jenny
simon
marcello
francesco"
a = request.form("stringa")
tester = request.form("nome")
%>




<center>
<form name="conta" method="post">
<table width="80%" class="gialloc">
	<tr>
		<td colspan="2" align="center">
		
		Ricerca di un nome in una stringa 	
		
		</td>
	</tr>
	<tr>
		<td colspan="2">
			<textarea readonly="yes" rows="3" cols="80" name="stringa" value="stringa"><%=iniz%></textarea>
		</td>
	</tr>
	<tr>
		<td width="50%">
	Di quale nome vuoi conoscere la posizione?
		</td>
		<td>
	<input type="text" name="nome"/>
		</td>
	</tr>
	<tr>
		<td colspan="2" align="center">
	<input type="button" name="button" value="conferma" onClick="javascript: controlla();"/>
		</td>
	</tr>
</table>	
</form>
</center>



<%
if len(a) > 0 then

	a = replace(a, "[b]", " ")

	a = RemoveTags(a)
	
	parole = split(a, " ")
	
	check = false

	for i=0 to ubound(parole)
		if parole(i) = tester then
			response.write("<div align='center'>La parola "&tester&" compare al posto numero "&i&" nella stringa!</div>")
			check = true
		end if
	next

	if check = false then
		response.write("<div align='center'>La parola "&tester&" non compare nella stringa!</div>")
	end if
end if
%>
</body>
</html>

Bisogna dare una ripulita dagli attributi di stile, e tenere presente che è fatto per prova, specificamente per QUELLA stringa........le piccole modifiche necessarie dipendono dal tipo di stringhe che prevedi di controllare.

Anche la stringa da controllare si può inserire come input, anzichè usarne una fissa come in questo esempio..........

Discussione: Gestione e lettura di stringhe

Strumenti discussione

Ricerca discussione

Visualizza

Gestione e lettura di stringhe

Permessi di invio