Tema: Strings
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/01/2003, 16:10
Avatar de meru-kun
meru-kun
 
Fecha de Ingreso: noviembre-2002
Ubicación: Madrid
Mensajes: 854
Antigüedad: 22 años, 5 meses
Puntos: 0
Código:
<%
Function cortarApartir(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'a partir de la aparicion del caracterCortador
'de la posicion especificada en desde.
dim enc
enc = instr(desde,cadena,caracterCortador)
cortarApartir = mid(cadena,enc + 1)
end Function

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function

%>
Con esas funciones puedes cortar las cadenas, para que no te deformen la tabla, a partir de un espacio, o de o que quieras, y a partir de el caracter numero "x", vamos, el que quieras...

Espero que te ayuden
__________________
Tu portal de manga y anime.