| Usuario |
Urgente Ayuda en Busqueda de Caden... |
Desconocido
|
| Enviado - 22/5/2003 |
| |
Necesito realizar una rutina que dentro de un archivo de texto RTF, consiga una cadena de inicio y una cadena de fin, y me copie en otro archivo el texto que se encuentra entre estas dos cadenas de marca.
Gracias
@I:T
Por cierre del 30% de las empresas
Se han perdido 300 mil empleos
@F:T
@I:N
Fedecámaras estima que en este último trimestre han cerrado un 30% de las empresas que estaban activas y se han perdido unos 300 mil puestos de trabajo, a pesar de que aún no se cuenta con cifras definitivas de cada sector de la economía privada. La información la dio a conocer la Vicepresidenta de Fedecámaras, Albis Muñoz, quien recordó que el año pasado se perdieron más de 700 mil empleos en el sector privado, a la vez que emplazó al BCV a dar a conocer al país las cifras de la economía real correspondiente a los primeros tres meses del año.
@F:N
@I:L
Rafael Isturiz
@F:L
Esta es una muestra de cómo esta el archivo yo necesito, sacar el texto que esta entre las marcas y grabarlo en otro archivo, sin las marcas de inicio y fin, este archivo esta en formato RTF.
Espero me puedan ayudar gracias. |
| |
|
fmarredo
355 Mensaje(s)
|
| Enviado - 22/5/2003 |
| |
Podés hacer algo así:
en un form con un RichTextBox (rtb) y un CommandButton(cmdProcesar):
Private Sub cmdProcesar_Click()
Dim i As Integer
Dim Texto As String
Dim Archivo As Integer
Dim Vector As Variant
With rtb
.LoadFile "c:\prueba.rtf", rtfRTF
Texto = .Text
End With
Vector = Split(Texto, "@")
Archivo = FreeFile()
Open "c:\datos.txt" For Output As #Archivo
For i = 0 To UBound(Vector)
Print #Archivo, Trim(Mid(Vector(i), 4))
Next i
Close #Archivo
End Sub
Espero que te sirva
Fabio Marredo
Cipolletti
Patagonia Argentina |
| |
|
|
|
Microsoft Certified