Red de conocimiento informático - Conocimiento informático - Ayuda a diseñar un programa VB.

Ayuda a diseñar un programa VB.

Agregue 2 cuadros de texto y 2 botones, y guarde el archivo de TEXTO en el directorio del mismo proyecto.

El proceso de clasificación distingue entre mayúsculas y minúsculas. Si no es necesario distinguir entre mayúsculas y minúsculas. agregue código Convierta todos los nombres a minúsculas o mayúsculas

Dim a() As String 'Guarde la variable de nombre

Private Sub Command1_Click() 'Importe el contenido del archivo de TEXTO al proyecto

Atenuar i como entero

Abra App.Path "\name.txt" para la entrada como #1

Hacer mientras no sea EOF(1)

ReDim Preservar a(i)

Entrada #1, a(i)

Texto1.Texto = Texto1.Texto a(i) vbCrLf

i = i 1

Bucle

Cerrar #1

End Sub

Private Sub Command2_Click() 'Ordena los nombres alfabéticamente y sobrescriba el archivo de TEXTO original

Dim i As Integer, j As Integer, s As String

For i = 0 To UBound(a) - 1 'Ordenar

Para j = i 1 Para UBound(a)

Si a(j) lt; a(i) Entonces

s = a(j): a(j) = a(i): a( i) = s

Finalizar si

Siguiente j

Siguiente i

Abrir App.Path " \Name.txt" Para salida como #1

Para i = 0 Para UBound(a) 'Exportar el contenido ordenado a un archivo de TEXTO

Text2.Text = Text2.Text a (i) vbCrLf

Imprimir #1, a(i)

Siguiente i

Cerrar #1

Fin Sub