Escludere caratteri in visualizzazione

[fraude]

Ciao, vi chiedo se è possibile in visualizzazione di questa stringa:

3-Pippo Pippetta, 4-Ciccio Ciccietta, 5-Tiziano Tizietta

eliminare il numero ed il trattino e visualizzare soltanto:

Pippo Pippetta, Ciccio Ciccietta, Tiziano Tizietta

Grazie.

[Ilpiubasso]

Spiegati meglio...

e' una stringa unica o 3 stringhe differenti ?

se sono differenti puoi usare :

right(len(stringa)-2,stringa)

se la stringa è unica la questione si complica...

[fraude]

é una stringa unica...

[Ilpiubasso]

L'idea più rapida, ma la più incasinata forse è questa :

stringa = "1 - Pippo, 2 - Pluto, 3 - Topolino"
stringa = replace(stringa,"0","")
stringa = replace(stringa,"1","")
stringa = replace(stringa,"2","")
stringa = replace(stringa,"3","")
stringa = replace(stringa,"4","")
stringa = replace(stringa,"5","")
stringa = replace(stringa,"6","")
stringa = replace(stringa,"7","")
stringa = replace(stringa,"8","")
stringa = replace(stringa,"9","")
stringa = replace(stringa,"-","")
response.write stringa

----------------------
Pippo, Pluto, Topolino
----------------------

Attenzione però se nei nomi ci sono numero o '-' sei fragato !!

[deivnet]

Prendi la stringa e con la funzione split utilizzando come separatore la virgola caricala in un array.

Dopodichè cicli sull'array e per ogni elemento
vai a trovare, tramite la funzione instr dove cè il "-",
dal valore che ottieni usa la funzione MID e stampa la stringa.
Una cosa simile :

tuaStringa = "3-Pippo Pippetta, 4-Ciccio Ciccietta, 5-Tiziano Tizietta"
aryStringhe = split (tuaStringa,",")

for vCount = 0 to Ubound(aryStringhe)

  testo = Mid(aryStringhe(vCount), instr(1,aryStringhe(vCount), "-")) & ", "

next

'Response della stringa senza mettere l'ultima virgola e l'ultimo spazio
Response.write Left(testo, Len(testo)-2)

[supergeniux]

Ogni frase e' divisa dalla stessa sintassi?

es:
frase1, frase2, frase3 (a dividerli e' la virgola)

Se la risposta e' si, devi dividere le stringhe con la funzione SPLIT, e quindi trovare tramite instr la parte da eliminare ed eliminarla

[supergeniux]

Originariamente inviato da deivnet
Prendi la stringa e con la funzione split utilizzando come separatore la virgola caricala in un array.

Dopodichè cicli sull'array e per ogni elemento
vai a trovare, tramite la funzione instr dove cè il "-",
dal valore che ottieni usa la funzione MID e stampa la stringa.
Una cosa simile :

tuaStringa = "3-Pippo Pippetta, 4-Ciccio Ciccietta, 5-Tiziano Tizietta"
aryStringhe = split (tuaStringa,",")

for vCount = 0 to Ubound(aryStringhe)

  testo = Mid(aryStringhe(vCount), instr(1,aryStringhe(vCount), "-")) & ", "

next

'Response della stringa senza mettere l'ultima virgola e l'ultimo spazio
Response.write Left(testo, Len(testo)-2)

Giacche avevi gia' risposto, faccio una piccola modifica:

tuaStringa = "3-Pippo Pippetta, 4-Ciccio Ciccietta, 5-Tiziano Tizietta"
aryStringhe = split (tuaStringa,",")

for vCount = 0 to Ubound(aryStringhe)

  testo = Mid(aryStringhe(vCount), instr(1,aryStringhe(vCount), "-")+1) & ", "

	if vcount <> Ubound(aryStringhe) then
		Response.write Left(testo, Len(testo)-2)&", "
	else
		Response.write Left(testo, Len(testo)-2)
	end if

next

[Mems]

<%
stringa = "1-Pippo Pippone, 2-Topolino Topone, 3-Pluto"
arrStringa = split(stringa,", ")
for x = 0 to uBound(arrStringa)
tempArr = split(arrStringa(x),"-")
tempStringa = tempStringa & tempArr(1)
if x < uBound(arrStringa) then tempStringa = tempStringa & ", "
next
response.write tempStringa
%>

[fraude]

scusate, ma non riesco a far funzionare nessuna delle due soluzioni all'interno di questo codice:

Redim aMessages(1)
     Redim aMessageContent(1)
          
     For I = 0 to 1
       aMessageContent(I) = ""
     Next
     
     Do While NOT objREC.EOF 
        aMessageContent(CInt(Left(objREC("DueTime"),2))) = objREC("Content")
       objREC.MoveNext
     Loop

:master:

[deivnet]

Ma il codice che hai postato cosa c'entra?

Comunque probabilmente nel pezzo di codice che hai postato non dimensioni correttamente l'array aMessageContent