Limitar tamaño de texto

[Julio Garcia]

Hola a tod@s:

Tengo un archivo de texto donde recogo las páginas de donde vienen mis visitas.

Cómo puedo limitar el tamño del texto para que no sea excesivamente grande. P.Ej:

Si tiene más de 80 líneas, eliminar las 5 primeras?

Gracias por vuestra ayuda. Un saludote.

[lexus]

supongamos que tienes un campo en un formulario que se llame mensaje.

cuando procesamos el mensaje lo filtramos asi:

mensaje= request.form("mensaje")
'si es muy largo borramos el resto.
'500 palabras

if len(mensaje) > 500 then
' si es mayor a 500 cortamos el resto.
mensaje = left(mensaje,499)
'si es menor a 500 lo dejamos igual
end if


' luego guardas en la base de datos o en el archivo de texto la variable "mensaje".


claro que es mucho mejor hacer la verificacion con javascript antes de enviarla al servidor, asi el usuario ve que su mensjae es muy largo y lo arreglara antes de procesarlo, asi no te qeudaran mensajes cortados e incoerentes, si necesitas el codigo en javascript que te valide un formulario para restringir cantidad de caracteres me avisas que yo lo tengo.

espero te sirva de algo..

[Julio Garcia]

Gracias, lexus, pero me parece que no me has entendido bien.
No estoy hablando de formularios, sino de un archivo de texto (.txt), en le cual escribo la URL de la página de donde vienen las visitas. Para que no se acumulen demasiadas líneas, debo eliminar las primeras para que el archivo no sea demasiado grande. Espero haberme explicado.
Gracias de todos modos.

[Radar]

Aqui te dejo un ejemplo en vbscript que ultiliza len para contar caracteres.

Código PHP:

  <script language="VBScript">
 
 dim txt
 
 sub Contar()
  txt = text.value 
  if  Len(txt) = "160" then 
    msgbox "Se ha llegado al limite de caracteres"
   end if
 end sub
</script>
 
<textarea name="txt" language="VBSCript" OnKeyPress="Contar()"></textarea> 
  

Recuerda que si ultlizas un form para enviar datos tendrias que ponerle nombre al form.:

Código PHP:

  <form action="" name="form" method=""> 
   

entonces cambiaria el valor de la variable txt y seria asi.

txt = form.text.value

txt - Es la variable
form - Es el nombre del formulario
text - Es el nombre del textarea

Para cajas de texto input se ultiliza lenght

[AlZuwaga]

pero eso es vbscript client-side... no vale para el foro ASP

[Julio Garcia]

Vuelvo a insistir en que no se trata de un formulario. Es un archivo de texto.
Los Chicos de Microsoft son yankies 100%: Inventan el WriteLine para escribir, pero no inventan el DeleteLine para borrar.... o estoy equivocado ...?

[Facu]

la verdad que lo que queres hacer es bastantecomplicado con un txt, por que no usas una base de datos?
la otra es copiar la cantidad de líneas que te interesan adentro de un array y borrar el txt o generarlo de nuevo donde bolcas el array y le sumas la linea del URL nuevo.
pero no es mucho laburo para el server cada vez que entra una persona?
me imagino tambien le metes una cookie para que no te haga eso si esta navegando tu propio sitio y no te guarde las direcciones locales?

[Julio Garcia]

Gracias, Facu.

Lo del array no se me había ocurrido, pero parece que es un poco lioso, porque no solo guardo la dirección, sino también fecha, hora, etc. Me tendré que decantar por la base de datos, pero la verdad es que el archivo de texto iba de perilla para esto.

Lo que me extraña es que alguien haya trabajado con archivos de texto y a nadie le haya surgido esta cuestión.

En fin, un saludo a todos y gracias por vuestra paciencia.

[bakanzipp]

exacto Julio...
los expeirtos de mocosoft se olvidaron del comando deleteLine para el manejo de archivo, lo que si puedes hacer es una rutina que dado el archivo y la palabra o frase a buscar haga un replace por espacios en blanco...

no es lo mas docto pero es lo unico que se me ocurrio cuando tuve que hacer algo similar...

Código PHP:

  Public Function DeletePalabra(filename, palabra)
 
     Dim content
    
     Set fs=Server.CreateObject("Scripting.FileSystemObject")
 
     Set f=fs.OpenTextFile(Server.MapPath(filename), 1)
     content = f.ReadAll
         content = replace(content, palabra, "")
     f.Close
     Set f=fs.CreateTextFile(filename,true)
     f.write(Server.MapPath(content))
     f.Close
     Set f=nothing
     Set fs=nothing
 
  End Function 
   

lo otro seria borrar por linea donde tendrias que darle la linea que deseas eliminar..o sea mas bien recorrer again el archivo y reescribirlo saltandote la linea X.

Código PHP:

  Public Function BorrarLinea(filename, linea)
 
     Set fs=Server.CreateObject("Scripting.FileSystemObject")
 
     Dim count, content
     count = 0
         
     Set f=fs.OpenTextFile(Server.MapPath(filename), 1)
 
      do while f.AtEndOfStream = false
     
        count = count + 1
            If linea <> count Then        
         content = content & f.ReadLine & "<br>"
        Else
           f.ReadLine
        End If
  
      loop
         
     f.Close
 
     Set f=fs.CreateTextFile(filename,true)
     f.write(Server.MapPath(content))
     f.Close
     Set f=nothing
     Set fs=nothing
         
  End Function 
   

saludos

[Julio Garcia]

Gracias, bankazipp.

Me has dado una idea. Este es el código que he desarrollado. Seguro que se puede mejorar, pero lo he sacado hace un rato y funciona correctamente.

Vamos a trabajar con 3 variables:

num_lineas = Total de líneas que tiene el fichero.
maximo = El número máximo de líneas que deseamos que tenga al final.
lineas_borrar = (obvio: num_lineas - maximo ).

El script consta de loas siguientes pasos:
1º .- Abrimos el archivo en modo lectura para saber cuantas líneas tiene el fichero.
2º .- Lo volvemos a abrir . Recorremos sin parar las líneas que no nos interesan. Las siguientes las guardamos en la variable contenido.
3º .- Lo volvemos a abrir en modo escritura y agregamos los datos
Ahí va el código...



num_lineas=0
maximo=136
strNombre=(Server.MapPath("web") & "\" & "fichero.txt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS= objFSO.OpenTextFile(strNombre,1,True)
Do While not objTS.AtEndOfStream
num_lineas=num_lineas+1 'Recorremos el fichero y calculamos el número total de líneas
objTS.SkipLine
Loop
ObjTS.Close
Set objTS=Nothing
If num_lineas >= maximo Then
lineas_borrar = num_lineas - maximo
contenido=""
Set objTS = objFSO.OpenTextFile(strNombre,1,True)
Do While not objTS.AtEndOfStream=True
If objTS.Line >= lineas_borrar Then 'Si la línea del fichero es superior a las líneas a borrar
contenido_linea=objTS.ReadLine & VbCrlF
contenido=contenido & contenido_linea 'Le agregamos la línea a la variable contenido
End If
If objTS.AtEndOfStream=True Then
Exit Do
End If
If contenido_linea="" Then
objTS.SkipLine
End If
Loop
objTS.Close
Set objTS = objFSO.OpenTextFile(strNombre,2,True)
objTS.Write(contenido) ' Colocamos el nuevo resultado en el fichero
objTS.Close
End If
Set objTS=Nothing
Set objFSO=Nothing


Como digo, los maestros lo podreis depurar, pero lo he hecho aprisa, y por lo menos funciona. Un saludo a todos y gracias.

[bakanzipp]

me parece....como mejora te aconsejo dejar el bucle en una funcion para que el codigo se vea mas orenado y limpio.

saludos.