I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
Sh4nK
Sh4nK
il 25 settembre 2004 alle 02:45
78 messaggi dal 19 marzo 2003
Salve ragazzi, ho creato questo scriptino per estrapolare una frase da un intero testo. L'ho creto per integrarlo in un sistema di news, il punto é che non mi da errori, ma bensì non mi restituisce nulla. Ho provato ad inserire del trash code, e ne risulta che la variabile strX arriva vuota destinazione, e non capisco perché... date un occhio a questa parte di codice e aiutatemi se potete, grazie mille (strCommento ha un contenuto, non vi posto il codice che c'é prima perché é troppo lungo, quello so cmq che é giusto):

Dim strWhat, intNum, intZenit, strX

strWhat = False
intNum = 150

Do While strWhat = True

intZenit = intNum - 1

strX = Left(strCommento, intNum)
If Mid(strX, intZenit, intNum) = "." Then
strWhat = True
End If
intNum = intNum + 1
Loop
%>
<tr>
<td bgcolor="#FFFFFF"><font size="2" face="Arial Unicode MS"><%Response.Write Replace(strX, VbCrLf, "<BR>")%></font></td>
</tr>
</table>
Modificato da Sh4nK il 25 settembre 2004 02.47 -
____
Ciao :)
RispondiQuoting
faustog
faustog
il 27 settembre 2004 alle 10:10
60 messaggi dal 10 ottobre 2003
www.duegiweb.it
Senza corregere il tuo codice, Potresti semplificare con:
<%
Dim intNum, Pos

intNum = 150

Pos = Instr(intNum,strCommento,".")
If Pos > 0 Then
strCommento = Left(strCommento,Pos)
End If
%>

<tr>
<td bgcolor="#FFFFFF"><font size="2" face="Arial Unicode MS"><%Response.Write Replace(strCommento, VbCrLf, "<BR>")%></font></td>
</tr>
</table>

Ciao
Fausto
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.