Visual Basic - MINUSULAS Y MAYUSCULAS

Life is soft - evento anual de software empresarial
   
Vista:

MINUSULAS Y MAYUSCULAS

Publicado por juanse (3 intervenciones) el 21/07/2016 18:43:02
Hola comunidad, quiero preguntar si me pueden ayudar con una duda, es que tengo que crear un programa que al seleccionar o arrastrar un archivo a X lado, tome el nombre y:
1) cuente cuantos caracteres tiene,
2) muéstrelos en pantalla separados en una rejilla/ matriz cada letra en un bloque
3) que cualquier letra seleccionada se pueda cambiar de mayúscula a minúscula y viceversa
4) al terminar dar opción guardar y que el archivo quede con el nuevo nombre en mayúsculas o musculas según el usuario indico


como puedo comenzar a trabajar en el y en VS se crearía una aplicación windows form si?


Nota: aunque se cambia el nombre de un archivo diferente cada ves, es posible que la posición de la letra que se quiera cambiar a mayúscula o minúscula se repita , es decir cambiar de uno o mas archivos a la ves.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

MINUSULAS Y MAYUSCULAS

Publicado por Andres Leonardo (702 intervenciones) el 21/07/2016 20:16:03
pues vamos que esa tarea deberas resolverla por ti mismo .. si empuieza con una winform

luego algo que deje ver el aarchivo o recepte lo que arrastres....

Luego el una variable almacenas es nombre para luego con un bucle separar con un substring o mid caracter a caracter para ponerlo en una rejilla o matriz

si seleccionas alguna letra con codigo ascii la puedes cambiar de minuscula a mayucula

y guardas el nuevo nombre

haz algo ... muestra tu avance y si te estancas nos avisas

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

MINUSULAS Y MAYUSCULAS

Publicado por juanse (3 intervenciones) el 22/07/2016 19:08:03
hola Andres Leonardo esto es lo que e hecho hasta el momento me faltan pocas cosas, como por ejemplo que en este caso solo me deja arrastrar de un elemnto cuando yo quiero arrastrar N cantidad de elemtos y modificar la misma posicion en todos los archivos, segundo, en este caso puse los numeros del 1 al 10 para cambiar la letra de may/ min pero en realidad debe ser ejemplo, el campo 1,3,5 y si hay 3 palabras y una no superar la cuarta letra, no importa debe ser capas de cambiar el campo que tenga, que opinan, como voy sugerencias porfa gracias

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

MINUSULAS Y MAYUSCULAS

Publicado por Andres Leonardo (702 intervenciones) el 22/07/2016 19:49:07
estoy revusando tu codigo

pero este registro no se que es : lstFile

Entenderia que es una LISTFILE pero no se si sea un componente? lo que me parece ... pero no lo encuentro tengo VS2012

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

MINUSULAS Y MAYUSCULAS

Publicado por juanse (3 intervenciones) el 22/07/2016 21:14:37
Si si lstFile es el nombre de un listbox :D
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Andres Leonardo

MINUSULAS Y MAYUSCULAS

Publicado por Andres Leonardo (702 intervenciones) el 22/07/2016 21:46:15
ya me salio ... puienso que deberias poner los valores de los archivos en otro list... y donde cambies los campos veas la previsualizacion de como quedaria en el oisitr list... y al final solo llamar a un RENAME de un valor de list por otro....
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar