¡Código fuente de VB (más 30 puntos si tiene éxito)!

'dlgCommonDialog es el nombre del control del cuadro de diálogo. micro.el control de cuadro de diálogo común 6.0 se puede usar en widgets

'cmdChose es un botón

'text1 es un cuadro de texto, esta consulta distingue entre mayúsculas y minúsculas

Private Sub cmdChose_Click()

Con dlgCommonDialog

.DialogTitle = "Abrir en archivo XML:"

.CancelError = False

.DialogTitle = "Abrir en archivo XML:"

.CancelError = False

.Filter = "Archivo de texto (*.txt)|*.txt|Todos los formatos (*. * )|* .*"

.InitDir = App.Path

.FileName = ""

.ShowOpen

' .DefaultExt

Si Len(.FileName) = 0 Entonces

Salir de Sub

Finalizar si

TxtFilePath.Text = .FileName

Dim aline como cadena

Abrir .FileName para binario como #1

aline = String((LOF(1)), Chr(0))

Obtener #1, , aline

Cerrar #1

'Tenga en cuenta que la búsqueda distingue entre mayúsculas y minúsculas

If InStr(aline, Text1.Text ) gt; 0 Entonces

'Explicación de Contenido

MsgBox "Encontré la cadena"

Dim cmdstr As String

'Si abres el archivo en texto enriquecido, puede ubicar la ubicación

cmdstr = "notepad.exe " amp .FileName

Shell cmdstr

Else

MsgBox; "Cadena de carácter no encontrada"

Fin si

Fin con

End Sub