Código fuente de operación Kk

1. Utilice VB para leer el contenido del documento TXT línea por línea, distinguirlos con comas y separarlos (por ejemplo, "21: 12: 1, No. 6.8") "21: 12".

Atenuar fhandle como un número entero

Atenuar Fname como una cadena

Etiquetar la siguiente línea como una cadena

Atenuar ooooo, llll, ooooo1 , kk

ooooo = 1

oooooo 1 = 1

llll = 1

Reloj de ruta. "\set.ini" lee el nombre del archivo.

fhandle = FreeFile

Abre el Fname del archivo binario como fhandle

Combo1. Borrar

Ejecutar en EOF(fhandle)

Entrada de línea #fhandle, NextLine 'Leer una línea en NextLine.

Si NextLine = " "y luego va a hhhh ', el cambio finaliza.

kk = Len(Recortar(SiguienteLínea))

kk = Medio(Recortar(SiguienteLínea), Len(Recortar(SiguienteLínea)) - 1, 2)

kk = Mid(Trim(NextLine), 11, Len(Trim(NextLine)) - 10)

Anillo

hhhh: Cerrar identificador

Fin de función

2. Escribir en tabla EXCEL

Opción explícita

Marcar xlApp como objeto

Atenuar xlBook como objeto

Atenuar xlsheet como objeto

Subcomando privado 1_Click()

archivo de destino = " f:\ SQL \ sblr \ sblr . xls " 'Abre el archivo.

Set xlapp = createobject ("EXCEL. application")'Crear una clase de aplicación Excel.

XlApp. "Visible = Verdadero" establece EXCEL visible.

Set xlbook = xlapp.workbooks.open(archivo de destino)'Abre el libro de EXCEL.

establecer hoja XL = libro XL hojas de trabajo(1)'Abre la hoja de trabajo EXCEL.

Hoja XL. "Activar" activa la hoja de trabajo.

Hoja XL. celdas (1, 1) = "Lo que quieres escribir" 'Escribe el contenido en la tabla de Excel.

Ss = hoja xl. Celdas (1, 1) = "Lo que quieres leer" 'El contenido leído de la tabla SS de Excel es una variable.

(1,1) son las filas y columnas de la tabla de Excel.