Visual Basic - Como Leo o convierto un archivo HTM en TXT ¿APIS?

Life is soft - evento anual de software empresarial
 
Vista:

Como Leo o convierto un archivo HTM en TXT ¿APIS?

Publicado por Luigi (79 intervenciones) el 16/07/2003 01:36:52
Holas!
Necesito urgente abrir una pagina web leer su contenido y guardarlo en un campo Memo de una Tabla en mi Base de datos,...

Explico esto mas claramente:

1.Tengo archivos RTF que los abro con el RichTextBox y su contenido lo guardo en una Base de Datos....
pero...

2.Ademas tambien tengo archivos HTM que por supuesto a la hora de abrirlos con el RichTextBox me sale ademas del contenido del documento el codigo HTM....

3.Mi Consulta es ...Como lo abro sin que me salga la basurita del codigo HTM para luego guardarlos en mi tabla..

4. Debe existir alguna APi q haga esto ? ...porq Si abro manualmente el archivo HTM por el Explorer y lo mando guardar como TXT lo soluciono..pero tengo mas de 70000 documentos... ademas de hacer el paso de guardar los docs como RTF o TXT es inecesario..porq lo que quiero es tomar solo el contenido q importa y guardarlo...
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:Como Leo o convierto un archivo HTM en TXT ¿API

Publicado por Cecilia Colalongo (3116 intervenciones) el 16/07/2003 02:52:32
Lo puedes hacer instanciando Word o Explorer, por ejemplo con Word:

Dim objWord As Word.Application

Set objWord=New Word.Application

With objWord
.Documents.Open FileName:= _
"MiDocumento.htm"", _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto

.ActiveDocument.SaveAs FileName:= _
"MiDocumento.txt", _
FileFormat:=wdFormatText, LockComments:=False, Password:="", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
End With
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