Visual Basic - Eliminacion de comentarios

Life is soft - evento anual de software empresarial
   
Vista:

Eliminacion de comentarios

Publicado por Diosa20 (1 intervención) el 01/03/2008 00:16:57
Hola buenas tardes! Espero que puedan ayudarme... Les cuento... Tengo un problema haciendo un porgrama.. resulta que el programa deberia eliminar el texto dentro de la marca de comentarios, mi marca de comentario es **@ , es decir q si escribo -->> Hola **@ Q tal? **@ cuando presione el boton deberia eliminar las marcas de comentario y lo q esta dentro de ellas... Pero el programa q logre hacer solo me borra las marcas de comentario y me deja el comentario alli... Aca les dejo las lineas a ver si pueden ayudarme, se los agradeceria...

Private Sub Command1_Click()
Dim car1, car2, comentario, cadena, cadenasincoment, cadenasincomentSE As String Dim lgcad, i As Integer
Dim bandera As Boolean

bandera = False
cadena = Text1
lgcad = Len(Text1)

For i = 1 To lgcad
car1 = Mid(cadena, i, 3)
If (car1 = "**@") And (bandera = False) Then
pos1 = i
bandera = True
car2 = Mid(cadena, i + 1, 3)
End If

If (car1 = "**@") And (bandera = True) Then
pos2 = i
bandera = False
lgcad = pos2 - pos1
comentario = Mid(cadena, pos1, lgcad + 3)
cadenasincoment = Replace(cadena, comentario, "")
Text2.Text = cadenasincoment
End If
Next i
End Sub
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:Eliminacion de comentarios

Publicado por Graciela (1 intervención) el 01/03/2008 11:47:58
Private Sub Command1_Click()
Dim iPos As Integer, iLen As Integer, i As Integer
Dim cadena As String, s As String
For i = 1 To Len(Text1)
s = Mid(Text1, i, 3)
If s = "**@" And iPos = 0 Then
iPos = i
ElseIf iPos <> 0 And s = "**@" Then
iLen = i - iPos + 4
cadena = Mid(Text1, iPos, iLen)
cadena = Replace(Text1, cadena, "")
Exit For
End If
Next i
Text2 = cadena
End Sub
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:Eliminacion de comentarios

Publicado por Diosa20 (6 intervenciones) el 01/03/2008 18:45:10
Gracias !!!
Me has salvado la vida graciela saludos :o) !!!!!
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