Option Explicit On
Option Strict On
' para usar la clase Path
Imports System.IO
Public Class Form1
Dim inicioNA As String
Dim largoNA As String
Dim ExtraerNombreDeUrl As String
Dim a As Double
Dim inicioEXT As String
Dim largoEXT As String
Dim TomarExtension As String
Dim caracter As String
Dim valores() As String
Public matriz() As Integer
Dim i As Integer
Dim j As Integer
Dim result As String
Dim numeroc As String
Dim Nombre As String
Dim numeroS As Integer
Dim ss As Integer
'evento DragDrop del ListBox
Private Sub ListBox1_DragDrop( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) _
Handles lstFile.DragDrop
Try
' Obtener un array de Strings con los archivos que se están colocando
Dim Rutas As String() = DirectCast( _
e.Data.GetData(DataFormats.FileDrop), _
String())
' Recorrer el array
For Each ruta As String In Rutas
' obtiene la extensión del path
Dim extension As String = Path.GetExtension(ruta).ToLower
inicioNA = CStr(InStrRev(ruta, "\") + 1)
largoNA = CStr(Len(ruta) - a + 1)
ExtraerNombreDeUrl = Mid(ruta, CInt(inicioNA), CInt(largoNA))
' Verifica si ya no se agregó este elemento
'If lstFile.Items.Contains(ExtraerNombreDeUrl) = False Then
' lstFile.Items.Add(ExtraerNombreDeUrl)
'End If
lstFile.Text = CStr(Trim(ExtraerNombreDeUrl))
Dim numeroc As Integer = Len(ExtraerNombreDeUrl)
Dim indice As Integer
Dim matriz(i) As String
i = numeroc
Dim charArray() As Char = ExtraerNombreDeUrl.ToCharArray
lstFile.Items.Add(Trim(ExtraerNombreDeUrl))
For indice = 0 To Len(Trim(ExtraerNombreDeUrl))
TextBox3.Text = TextBox3.Text & indice & " "
TextBox2.Text = TextBox2.Text & charArray(indice) & " "
Next indice
Next
Catch ex As Exception
End Try
End Sub
'evento DragEnter del ListBox
Private Sub ListBox1_DragEnter( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.DragEventArgs) _
Handles lstFile.DragEnter
e.Effect = DragDropEffects.Copy
End Sub
Private Sub Form1_Load( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
' Poner AllowDrop en true para habilitar el arrastre de datos hacia el control
lstFile.AllowDrop = True
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.lstFile.Items.Clear()
Me.TextBox3.Clear()
Me.TextBox2.Clear()
Me.TextBox1.Clear()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim charArray1() As Char = ExtraerNombreDeUrl.ToCharArray
For indice = 0 To Len(Trim(ExtraerNombreDeUrl))
Next indice
Try
If TextBox1.Text = "1" Then
TextBox2.Text = UCase(charArray1(0)) + charArray1(1) + charArray1(2) + charArray1(3) + charArray1(4) + charArray1(5) + charArray1(6) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "2" Then
TextBox2.Text = charArray1(0) + UCase(charArray1(1)) + charArray1(2) + charArray1(3) + charArray1(4) + charArray1(5) + charArray1(6) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "3" Then
TextBox2.Text = charArray1(0) + charArray1(1) + UCase(charArray1(2)) + charArray1(3) + charArray1(4) + charArray1(5) + charArray1(6) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "4" Then
TextBox2.Text = charArray1(0) + charArray1(1) + charArray1(2) + UCase(charArray1(3)) + charArray1(4) + charArray1(5) + charArray1(6) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "5" Then
TextBox2.Text = charArray1(0) + charArray1(1) + charArray1(2) + charArray1(3) + UCase(charArray1(4)) + charArray1(5) + charArray1(6) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "6" Then
TextBox2.Text = UCase(charArray1(0)) + charArray1(1) + charArray1(2) + charArray1(3) + charArray1(4) + UCase(charArray1(5)) + charArray1(6) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "7" Then
TextBox2.Text = UCase(charArray1(0)) + charArray1(1) + charArray1(2) + charArray1(3) + charArray1(4) + charArray1(5) + UCase(charArray1(6)) + charArray1(7) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "8" Then
TextBox2.Text = UCase(charArray1(0)) + charArray1(1) + charArray1(2) + charArray1(3) + charArray1(4) + charArray1(5) + charArray1(6) + UCase(charArray1(7)) + charArray1(8) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "9" Then
TextBox2.Text = UCase(charArray1(0)) + charArray1(1) + charArray1(2) + charArray1(3) + charArray1(4) + charArray1(5) + charArray1(6) + charArray1(7) + UCase(charArray1(8)) + charArray1(9) + charArray1(10)
End If
If TextBox1.Text = "10" Then
TextBox2.Text = UCase(charArray1(0)) + charArray1(1) + charArray1(2) + charArray1(3) + charArray1(4) + charArray1(5) + charArray1(6) + charArray1(7) + charArray1(8) + UCase(charArray1(9)) + charArray1(10)
End If
Catch ex As Exception
End Try
End Sub
Private Sub lstFile_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lstFile.SelectedIndexChanged
End Sub
End Class