Por favor, ayude a explicar el siguiente segmento del programa vb línea por línea.
FilePath = App. Ruta
FileNamel = FilePath amp" BeforeSort.dat "
FileName2 = FilePath amp" \AferSort.dat "
Para I = 0 a 9
Si Texto1(i). Txt = " "Luego configure la matriz de control Textl, es decir, copie y pegue hasta 10 cuadros de texto.
MsgBox "Por favor ingrese un número real con un número de serie" i 1 "!", vbCritical vbOK0nly, "Advertencia"
Conector de salida
Si.. Terminará
Luego
Abrirá el nombre de archivo 1 para 0, la salida es #1
Para i = 0 a 9
Imprimir. #1, Val(Texto1(i)). Texto)
Luego
Cerrar #1
iTask = Shell(ruta del archivo & "\sort.exe", vbhide) 'Ejecutar proyecto para solicitar precio Luego descargue ordenar. exe (mira el nombre, parece un programa de clasificación).
p handle = open process(synchronize, false, itask)' Obtiene el identificador del proceso sort.exe.
ret = waitforsingleobject(p handle, INFlNTE)' Obtiene la implementación de sort.exe.
ret = CloseHandle(pHandle)
"cuadro de texto enriquecido 1. nombre de archivo de carga 2, rftext" muestra el contenido ordenado en Richtextbox.
En general, este no es un código completo.
Falta sort.exe y falta la parte de declaración de API
Es imposible ejecutarlo directamente.
Además, hay casos en los que 1 y L no están divididos en el código.