Un pequeño programa escrito en VB que es similar a consultar palabras.

Oscuro? ¿Nombre del archivo? ¿Como? Cadena,? palabra()? ¿Como? Línea

¿Privada? ¿Sub? Command1_Click()

Lista1. Borrar

¿Fin? Submarino

¿Privado? ¿Sub? Form_Load()

¿Atenuado? ¿I? ¿Como? Entero,? ¿Trabajador temporal? ¿Como? Línea

¿Nombre del archivo? =?Aplicación. ¿camino? ¿amperio? " \ word.txt " 'Usted mismo puede cambiar la dirección.

¿Abierto? ¿Nombre del archivo? ¿para qué? ¿ingresar? ¿Como? #1

¿Qué hacer? ¿cuando? ¿No es así? EOF(1)

¿Línea? ¿ingresar? #1,?Empleado temporal

¿Yo? =?Yo? ?1

Raedim? ¿ahorrar? Palabra (1)

¿Palabra (1)? =?Empleado temporal

Depurar. ¿Imprimir? Word (1)

Múltiples actividades

Timbre

¿Cerrar? #1

¿El final? Submarino

¿Privado? ¿Sub? Text1_Change()

¿Atenuado? ¿I? ¿Como? Entero,? retirado,? ¿Trabajador temporal? ¿Como? Línea

Lista1. Claro

¿Trabajadores temporales? =?Texto1

¿Para qué? ¿I? =?1?¿Adónde ir? UBound(palabra)

ret? =?InStr(palabra(i),?temperatura)

Depurar. ¿Imprimir? Remojarlo en agua lo suaviza

¿Y si? ¿retirado? ¿Es gt? 0? ¿Y entonces qué? Lista1. ¿Agregar artículo? Palabra (1)

Luego

Etiqueta1. ¿título? =?Lista1. ¿ListCount? ¿amperio? "¿Palabras? ¿Contiene?:"?amp? Empleados temporales

¿Fin? Submarino

¿Privado? ¿Sub? Text1_GotFocus()

Texto1. ¿SelInicio? =?0

Texto1. ¿Serenth? =?Len(Texto1)

¿Fin? Submarino