11/06/2003, 12:23
|
 | Colaborador | | Fecha de Ingreso: febrero-2001 Ubicación: 34.517 S, 58.500 O
Mensajes: 14.550
Antigüedad: 24 años, 2 meses Puntos: 535 | |
| se me ocurre algo así:
<%
texto = "cxxxx p xxxp xxx xpx xxxxp"
j = Len(Texto) - 1
For i = 0 to j
If Mid(Texto,i+1,1) = "p" then
Cantidad = Cantidad + 1
Posicion = Posicion & "-" & i
End if
Next
Response.Write "Se ha detectado la letra p " & Cantidad & " veces en las posiciones: " & Right(Posicion, Len(Posicion) - 1)
%>
saludos |