El problema de la programación con números aleatorios después de insertar dos textos TXT en VB, por favor entren los expertos.
Jaja, está más allá del reconocimiento.
Dim s() As String 'Guardar contenido de texto de A
Dim t() As String 'Guardar contenido de texto de B
p>
Dim j As Integer 'Define variables globales para determinar el número de veces que se presiona el comando1
Dim Ia As Integer, Ib As Integer 'Define la función de determinación de bucle
Subcomando privado1_Click( )
Atenuar i como entero, n como entero, s1 como cadena
j = j + 1
Seleccione Caso j
Caso 1:
Ia = 0
Caso 2
Ib = 0
Caso 3
Abra App.Path y "\A.txt" para ingresar como #1
Abra App.Path y "\B.txt" para agregar como #2 'Abra el archivo con anexo final
Hacer mientras no sea EOF(1)
Entrada de línea #1, s1 'Leer archivo
Imprimir #2, s1 'Escribir archivo
Bucle
Cerrar
Finalizar selección
Finalizar sub
Sub privado Form_Load()
Abra App.Path y "\A .txt" para la entrada como n.° 1
Abra App.Path y "\B.txt" para la entrada como n.° 2
Haga mientras Not EOF(1)
Entrada de línea #1, s1 'Leer y almacenar en s1
i = i + 1
ReDim Preserve s(i) ' Redefinir la longitud de la matriz
s(i) = s1
Bucle
i = 0
Hacer mientras no EOF(2)
Entrada de línea #2, s1
i = i + 1
ReDim Preserve t(i)
t(i) = s1
Bucle
Cerrar
Fin Sub
Private Sub Timer1_Timer()
Seleccionar caso j
Caso 0:
Si Ia = UBound(s)
Entonces
Ia = 0
Finalizar si
Ia = Ia + 1
Label1.Caption = s(Ia) 'Salida A Texto
Caso 1:
Si Ib = UBound(t) Entonces
Ib = 0
Fin si
Ib = Ib + 1
Label2.Caption = t(Ib) 'Texto de salida B
Caso 2
Si Ia = UBound(s) Entonces
Si Ib <> UBound(t) Entonces
Ib = Ib + 1
Label3.Caption = t(Ib)
Salir Sub
Else
Ia = 0
Ib = 0
Finalizar si
Finalizar si
Ia = Ia + 1
Label3.Caption = s(Ia) 'Emite el texto B fusionado
End Select
End Sub
----------------------------------
No Entendido , compruébalo con atención, funciona en mi máquina... Aún no lo he probado, así que no me atrevo a publicarlo. Hay dragones escondidos y tigres agachados en Internet
--. ---------- -----------------------
Trabajaste muy duro para conseguir estos 15 puntos, Quiero rendirme..
---------------------------------
Seleccione el caso J usted mismo. ¿No es posible cambiar las condiciones?
¿Por qué debería aprender VB si no quiero hacer nada más?