Visual Basic - Una enorme ayuda

Life is soft - evento anual de software empresarial
 
Vista:

Una enorme ayuda

Publicado por momjmb (4 intervenciones) el 03/02/2006 18:13:27
Estoy haciendo una cosilla para un proyecto y necesito que alguien me heche una mano.
Necesito un codigo, que en un fichero, me localice una cadena http://www.pepito.net y me haga lo siguiente:
http://www.pepito.net/estuvo/haciendo/de-las_suyas_en_la_casa-333-bajos.html
me lo transforme en:
http://www.pepito.net/acudio/haciendo/gamberradas/originales/las%20suyas%20en%20casa%20(bajos).jpg

Gracias por adelantado
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Una enorme ayuda

Publicado por Cecilia Colalongo (3116 intervenciones) el 03/02/2006 18:51:55
Fijate con:

strArchivo = FileToString("MiArchivo.html")

strArchivo = Replace(strArchivo,"http://www.pepito.net/estuvo/haciendo/de-las_suyas_en_la_casa-333-bajos.html ","http://www.pepito.net/acudio/haciendo/gamberradas/originales/las%20suyas%20en%20casa%20(bajos).jpg
")

Luego si tienes que guardar los cambios

StringToFile strArchivo,"MiArchivo.html"

Las funciones son:

Public Function FileToString(FileName As String) As String
On Error GoTo ErrorHandler
Dim hlngFile As Long, strFile As String
hlngFile = FreeFile
Open FileName For Binary Access Read As hlngFile
FileToString = vbNullString
strFile = String(FileLen(FileName), " ")
Get hlngFile, , strFile
Close hlngFile
FileToString = strFile
Exit Function
ErrorHandler:
FileToString = Empty
End Function

Public Function StringToFile(StringText As String, FileName As String) As Long
Dim hlngFile As Long
hlngFile = FreeFile
Open FileName For Binary Access Write As hlngFile
Put hlngFile, , StringText
Close hlngFile
StringToFile = FileLen(FileName)
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Una enorme ayuda

Publicado por momjmb (4 intervenciones) el 03/02/2006 19:47:38
Pare que ser que no me he explicado bien, lo siento.

http://www.pepito.net/estuvo/haciendo/de-las_suyas_en_la_casa-333-bajos.html
http://www.pepito.net/acudio/haciendo/gamberradas/originales/las%20suyas%20en%20casa%20(bajos).jpg

En un texto, de un archivo, hay 50.000 referencias que empienzan por " http://www.pepito.net ".
Bien. entrando en cada una de ellas necesito cambiar /estuvo/haciendo/ por /acudio/haciendo/gamberradas/originales/
Per a partir de ahí, todo cambia y necesito poner en ese formato todo lo que venga:
1º Hasta el primer guión: de- Esto fuera
2º Las _ por %20
3º Lo que hay entre los dos guiones -333- fuera, (cada vez es distinto)
4º En eso que se quita se pone un %20
5º La palaba que venga después,y antes del punto: Entre parentesis ( ).
6º Ypor fin, la extensión, hay que cambiarla por ".jpg"

Recordar a partir de /originales/ siempre es diferente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Una enorme ayuda

Publicado por Raúl Santiago (178 intervenciones) el 03/02/2006 21:07:17
Lo de todo el remplazo es lo mismo que te dijo Cecilia, solo que pones las condiciones que tienes y lo haces renglón por renglón, con lo de cambiar la extensión, no tiene sentido, pues un jpg es un formato de imagenes comprimido, tal vez que le pongas un .txt, o hasta un .doc, eso no tengo idea como se hace, depronto Cecilia que se las sabe todas te ayude
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Una enorme ayuda

Publicado por momjmb (4 intervenciones) el 04/02/2006 06:29:05
Es que no se trata de un Replace sin mas, por que cada vez será distinto:

http://www.pepito.net/estuvo/haciendo/descargar-24_grana_-_live-caratula-37790-back.html

http://www.pepito.net/acudio/haciendo/gamberradas/originales/24%20grana%20-%20live%20(back).jpg
--------------------------------------------------------------------------------------------------------------
http://www.pepito.net/estuvo/haciendo/cover-queenadreena_-_the_butcher_and_the_butterfly-31422-cd.html

http://www.pepito.net/acudio/haciendo/gamberradas/originales/queenadreena%20-%20the%20butcher%20and%20the%20butterfly%20(cd).jpg

--------------------------------------------------------------------------------------------------------------

http://www.pepito.net/estuvo/haciendo/cover-geckoturner_-_guapapasea-7827-back.html

http://www.pepito.net/acudio/haciendo/gamberradas/originales/geckoturner%20-%20guapapasea%20(back).jpg

Lo único que siempre es igual es http://www.pepito.net/ que es la que busco en el texto para empezar. lo demás siempre cambia.

Por eso un replace sin más no me sirve por que hay 50000 entradas que empiezan así, pero luego todas son diferentes.

http://www.pepito.net/estuvo/haciendo/

http://www.pepito.net/acudio/haciendo/gamberradas/originales/

Este cambio ya lo tengo controlado, ya lo he conseguido, me falta todo lo demás.

Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar