Mostrar mensajes previos
Ordenar por
por Naker90 VIP
Hola, mi duda es la siguiente:
Tengo un textbox con la propiedad multiline en true en el que cargo un archivo (.txt). Supongamos que ese archivo tenga dentro Hola, Adios en lineas difentes. Como podria seleccionar las lineas por separado para renombrar el archivo principal que cargo en un textbox diferente?, ya se como renombrar el archivo pero mi problema es como puedo seleccionar las lineas por separado.

EJEMPLO:
Archivo principal > asdkfjh.exe

Archivo modificado 1 > Hola.exe (Hola, es la primera linea del texto cargado en el textbox)
Archivo modificado 2 > Adios.exe (Adios, es la segunda linea del texto cargado en el textbox)

Muchas gracias de antemano y espero haberme explicado con claridad
Skype: naker.noventa
por Nemesis Paranóico
Aver puedes copiar las lineas de un textbox o meterlas en un strig de la siguiente forma .

On Error Resume Next
Dim a() As String
'Hace un split bajando lineas (vbnewline)
a() = Split(Text1, vbNewLine)
'En (4) es el numero de la linea que quieres copair - 1 \\Copiara la linea 5
Text2 = a(4)

Talvez te sirva
http://byronlabs.blogspot.com/
por xserpientex Se medica
Hola hermano, a ver si esto te sirve

Código: Seleccionar todo

Private Sub Command1_Click()

Dim ExeA As String
Dim Uno As String
Dim Nombre() As String

Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
ExeA = Space(LOF(1))
    Get #1, , ExeA
Close #1

Uno = Text1.Text
Nombre = Split(Uno, vbCrLf)

If Option1.Value = True Then
Open App.Path & "\" & Nombre(0) & ".exe" For Binary As #1
Put #1, , ExeA
Close #1
Else
Open App.Path & "\" & Nombre(1) & ".exe" For Binary As #1
Put #1, , ExeA
Close #1
End If

End Sub

Private Sub Option1_Click()
Option2.Value = False
End Sub

Private Sub Option2_Click()
Option1.Value = False
End Sub

Mostrar/Ocultar

Mostrar/Ocultar

Mostrar/Ocultar


Saludos
Imagen
por Naker90 VIP
Solucionado, he agregado un bucle al split y he logrado que funcionase como queria. El problema era que el split solo leia un archivo pero con el bucle los lee todos indistintamente de cuantos haya
aqui dejo el codigo

Código: Seleccionar todo

Private Sub Command2_Click()
MkDir ("C:\Hola")

Dim a() As String
a() = Split(Text1.Text, vbNewLine)


For Each xItem In a
        If Len(xItem) Then _
   Call FileCopy(Text2.Text, "C:\Hola\" & xItem)
Next
End Sub
Saludos y muchas gracias a los dos
Skype: naker.noventa
Temas similares
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”