Fíjate en el código, puedes pedir el texto a introducir exáctamente de la misma manera que se puede pedir el archivo de texto en el script que te he puesto de ejemplo. Te quise poner un ejemplo de las dos maneras.



Saludos!

¡ Llegó la nueva versión del instalador !

He corregido un error que sufrieron algunas personas con la carpeta de instalación del VS en la version antigua de este instalador...
Además lo he optimizado tanto en el sistema de la instalación de los componentes, como en su desinstalación... ...Y contiene más librerías, más controles, y más snippets!

La instalación completa y la instalación por defecto han sido testeadas en Windows 7 de 32 y 64 Bits, en Windows XP tampoco debería haber problemas.



LO PUEDEN DESCARGAR DE FORMA DIRECTA EN EL COMENTARIO PRINCIPAL DE ESTE HILO.



         

Me ha hecho mucha gracia el video, es un tutorial express xD

"...Y después de instalar esto le pinchamos aquí para abrir el .NET, que tarda unas 400 horas en abrirse, pero yo ya lo tenia abierto así que..." X'D

Gracias por el video.

PD: El idioma por defecto de la IDE es Inglés, para poder elegir Español (como comentas en tu tuto) hay que instalar el idioma español para la IDe (Que va incluida en el instalador).

...Es decir: Como añadir un string al final de cada línea de un archivo de texto.

Pues así:

@Echo OFF
Title Frutero
 
Set /P "InputText=Arrastra el archivo de texto... >> "
Set "String= tiene fruta"
Call :Writter "%InputText%" "%String%" ".\Frutero.txt"
Pause&Exit
 
:Writter
((FOR /F "Usebackq Tokens=*" %%@ IN ("%~1") DO (Echo %%@%~2)) > %3) & (GOTO:EOF)

Saludos!

Te está diciendo que intentas usar una variable que no tiene ningún valor asignado.

Asígnale un valor, y listo:

float primernumero = 0;
float segundonumero = 0;
float resultado = 0;
string operacion = null;

El ¿porque?, pues me imagino que porque C# es así de restrictivo, no sé, no manejo C#...

Saludos!

Pues no tienes que atormentarte xD, simplemente declara las cosas como compartidas (Shared), y listo.

Ejemplo:

Public Class Class1
 
    Public Shared SharedVar As String = "Test" ' Esta la podrás leer
    Public Var As String = "Test"' Esta no la podrás leer
 
End Class

Imports WindowsApplication1.Class1
 
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        MsgBox(SharedVar) ' String: "Test"
        MsgBox(Var) ' Exception: Reference to a non-shared member requires an object reference
    End Sub
End Class

Saludos!

· Devuelve el valor de un nombre de un Enum

#Region " Get Enum Value "
 
    ' [ Get Enum Value Function ]
    '
    ' Examples :
    ' MsgBox(Get_Enum_Value(DayOfWeek.Sunday)) ' Result: 0
    ' MsgBox(Get_Enum_Value(DayOfWeek.Monday)) ' Result: 1
 
    Function Get_Enum_Value(Of T)(Byval ValueName As T) As Int32
        Return Convert.ToInt32(ValueName)
    End Function
 
#End Region

---

· Devuelve el nombre de un valor de un Enum

#Region " Get Enum Name "
 
    ' [ Get Enum ValueName Function ]
    '
    ' Examples :
    ' MsgBox(Get_Enum_Name(Of DayOfWeek)(0)) ' Result: Sunday
    ' MsgBox(Get_Enum_Name(Of DayOfWeek)(1)) ' Result: Monday
 
    Private Function Get_Enum_Name(Of T)(EnumValue As Integer) As String
        Return [Enum].GetName(GetType(T), EnumValue)
    End Function
 
#End Region

---

· Comparar dos archivos:

#Region " Compare Files "
 
    ' [ Compare Files Function ]
    '
    ' Examples :
    ' MsgBox(Compare_Files("C:\File1.txt", "C:\File2.txt"))
 
    Private Function Compare_Files(ByVal File1 As String, ByVal File2 As String) As Boolean
 
        ' Set to true if the files are equal; false otherwise
        Dim FilesAreEqual As Boolean = False
 
        With My.Computer.FileSystem
 
            ' Ensure that the files are the same length before comparing them line by line.
            If .GetFileInfo(File1).Length = .GetFileInfo(File2).Length Then
                Using file1Reader As New FileStream(File1, FileMode.Open), _
                      file2Reader As New FileStream(File2, FileMode.Open)
                    Dim byte1 As Integer = file1Reader.ReadByte()
                    Dim byte2 As Integer = file2Reader.ReadByte()
 
                    ' If byte1 or byte2 is a negative value, we have reached the end of the file.
                    While byte1 >= 0 AndAlso byte2 >= 0
                        If (byte1 <> byte2) Then
                            FilesAreEqual = False
                            Exit While
                        Else
                            FilesAreEqual = True
                        End If
 
                        ' Read the next byte.
                        byte1 = file1Reader.ReadByte()
                        byte2 = file2Reader.ReadByte()
                    End While
 
                End Using
            End If
        End With
 
        Return FilesAreEqual
    End Function
 
#End Region

· Un AppActivate distinto, en mi opinión mejor, se usa por el nombre del proceso, con posibilidad de seleccionar el proceso por el título de la ventana de dicho proceso:

#Region " Activate APP "
 
    ' [ Activate APP Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' ActivateAPP("notepad.exe")
    ' ActivateAPP("notepad.exe", "Notepad Sub-Window Title")
    ' MsgBox(ActivateAPP("notepad"))
 
    Private Function ActivateAPP(ByVal ProcessName As String, _
                                 Optional ByVal WindowTitle As String = Nothing) As Boolean
 
        If ProcessName.ToLower.EndsWith(".exe") Then ProcessName = ProcessName.Substring(0, ProcessName.Length - 4)
        Dim ProcessTitle As String = Nothing
        Dim ProcessArray = Process.GetProcessesByName(ProcessName)
 
        If ProcessArray.Length = 0 Then : Return False ' ProcessName not found
 
        ElseIf ProcessArray.Length > 1 AndAlso Not WindowTitle Is Nothing Then
            For Each Title In ProcessArray
                If Title.MainWindowTitle.Contains(WindowTitle) Then _
                   ProcessTitle = Title.MainWindowTitle
            Next
 
        Else : ProcessTitle = ProcessArray(0).MainWindowTitle
        End If
 
        AppActivate(ProcessTitle)
        Return True ' Window activated
 
    End Function
 
#End Region

---

· Escribe texto en un Log

#Region " Write Log "
 
    ' [ Write Log Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' WriteLog("Application started", InfoType.Information)
    ' WriteLog("Application got mad", InfoType.Critical)
 
    Dim LogFile = CurDir() & "\" & System.Reflection.Assembly.GetExecutingAssembly.GetName().Name & ".log"
 
    Public Enum InfoType
        Information
        Exception
        Critical
        None
    End Enum
 
    Private Function WriteLog(ByVal Message As String, ByVal InfoType As InfoType) As Boolean
        Dim LocalDate As String = My.Computer.Clock.LocalTime.ToString.Split(" ").First
        Dim LocalTime As String = My.Computer.Clock.LocalTime.ToString.Split(" ").Last
        Dim LogDate As String = "[ " & LocalDate & " ] " & " [ " & LocalTime & " ]  "
        Dim MessageType As String = Nothing
 
        Select Case InfoType
            Case InfoType.Information : MessageType = "Information: "
            Case InfoType.Exception : MessageType = "Error: "
            Case InfoType.Critical : MessageType = "Critical: "
            Case InfoType.None : MessageType = ""
        End Select
 
        Try
            My.Computer.FileSystem.WriteAllText(LogFile, vbNewLine & LogDate & MessageType & Message & vbNewLine, True)
            Return True
        Catch ex As Exception
            'Return False
            Throw New Exception(ex.Message)
        End Try
 
    End Function
 
#End Region

---

· Cierra un proceso (No lo mata)

#Region " Close Process Function "
 
    ' [ Close Process Function ]
    '
    ' Examples :
    '
    ' Close_Process(Application.ExecutablePath)
    ' Close_Process("notepad.exe")
    ' Close_Process("notepad", False)
 
    Private Function Close_Process(ByRef Process_Name As String, _
                                   Optional ByVal OnlyFirstFound As Boolean = True) As Boolean
 
        If Process_Name.ToLower.EndsWith(".exe") Then Process_Name = Process_Name.Substring(0, Process_Name.Length - 4)
        Dim proc() As Process = Process.GetProcessesByName(Process_Name)
 
        If Not OnlyFirstFound Then
            For proc_num As Integer = 0 To proc.Length - 1
                Try : proc(proc_num).CloseMainWindow() _
                    : Catch : Return False : End Try ' One of the processes can't be closed
            Next
            Return True
        Else
            Try : proc(0).CloseMainWindow() : Return True ' Close message sent to the process
            Catch : Return False : End Try ' Can't close the process
        End If
 
        Return Nothing ' ProcessName not found
 
    End Function
 
#End Region

---

· Buscar coincidencias de texto usando expresiones regulares

#Region " Find RegEx "
 
    ' [ Find RegEx Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' If Find_RegEx("abcdef", "^[A-Z]+$") Then MsgBox("Yes") Else MsgBox("No") ' Result: No
    ' If Find_RegEx("abcdef", "^[A-Z]+$", True) Then MsgBox("Yes") Else MsgBox("No") ' Result: Yes
 
    Private Function Find_RegEx(ByVal str As String, ByVal Pattern As String, _
                                 Optional ByVal Ignorecase As Boolean = False) As Boolean
 
        Dim RegExCase As System.Text.RegularExpressions.RegexOptions
 
        If Ignorecase Then _
             RegExCase = System.Text.RegularExpressions.RegexOptions.IgnoreCase _
        Else RegExCase = System.Text.RegularExpressions.RegexOptions.None
 
        Dim RegEx As New System.Text.RegularExpressions.Regex(Pattern, RegExCase)
 
        Return RegEx.IsMatch(str)
 
    End Function
 
#End Region

---

· Leer un texto línea por línea (For each line...) con posibilidad de saltar líneas en blanco.

#Region " Read TextFile Libe By Line "
 
    ' [ Read TextFile Libe By Line ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Read_TextFile_Libe_By_Line("C:\Test.txt")
    ' Read_TextFile_Libe_By_Line("C:\Test.txt", True)
 
    Private Sub Read_TextFile_Libe_By_Line(ByVal TextFile As String, _
                                           Optional ByVal Read_Blank_Lines As Boolean = False)
        Dim Line As String = Nothing
        Dim Text As IO.StreamReader = IO.File.OpenText(TextFile)
        Dim RegEx As New System.Text.RegularExpressions.Regex("^\s+$")
 
        Do Until Text.EndOfStream
 
            Line = Text.ReadLine()
 
            If (Not Read_Blank_Lines _
                AndAlso _
               (Not Line = "" _
                And Not RegEx.IsMatch(Line))) _
                OrElse Read_Blank_Lines Then
                ' Do things here...
                MsgBox(Line)
            End If
 
        Loop
 
        Text.Close() : Text.Dispose()
 
    End Sub
 
#End Region

Lo que necesitas es el editor "PE Explorer", modificas los strings de las tablas y aplicas los cambios.

Saludos!

La función de convertir un string a Case, mejorada y mucho más ampliada:

#Region " String to Case "
 
    ' [ String to Case Function ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' MsgBox(String_To_Case("THiS is a TeST", StringCase.Titlecase))
    ' MsgBox(String_To_Case("THiS is a TeST", StringCase.DelimitedCase_Lower, ";"))
    ' Var = String_To_WordCase(Var, StringCase.LowerCase)
 
    Public Enum StringCase
 
        LowerCase
        UpperCase
        Titlecase
        WordCase
 
        CamelCase_First_Lower
        CamelCase_First_Upper
 
        MixedCase_First_Lower
        MixedCase_First_Upper
        MixedCase_Word_Lower
        MixedCase_Word_Upper
 
        DelimitedCase_Lower
        DelimitedCase_Mixed_Word_Lower
        DelimitedCase_Mixed_Word_Upper
        DelimitedCase_Title
        DelimitedCase_Upper
        DelimitedCase_Word
 
    End Enum
 
    Private Function String_To_Case(ByVal str As String, _
                                    ByVal StringCase As StringCase, _
                                    Optional ByVal Delimiter As String = "-") As String
        Select Case StringCase
 
            Case StringCase.LowerCase
                Return str.ToLower
 
            Case StringCase.UpperCase
                Return str.ToUpper
 
            Case StringCase.Titlecase
                Return Char.ToUpper(str(0)) + StrConv(str.Substring(1), VbStrConv.Lowercase)
 
            Case StringCase.WordCase
                Return System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(str)
 
            Case StringCase.CamelCase_First_Lower
                Return Char.ToLower(str(0)) & _
                    System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(str).Replace(" ", "").Substring(1)
 
            Case StringCase.CamelCase_First_Upper
                Return Char.ToUpper(str(0)) & _
                    System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(str).Replace(" ", "").Substring(1)
 
            Case StringCase.MixedCase_First_Lower
                Dim MixedString As String = Nothing
                For X As Integer = 0 To str.Length - 1
                    Dim c As Char = str(X)
                    If (X / 2).ToString.Contains(",") Then _
                         MixedString += c.ToString.ToUpper _
                    Else MixedString += c.ToString.ToLower
                Next
                Return MixedString
 
            Case StringCase.MixedCase_First_Upper
                Dim MixedString As String = Nothing
                For X As Integer = 0 To str.Length - 1
                    Dim c As Char = str(X)
                    If (X / 2).ToString.Contains(",") Then _
                         MixedString += c.ToString.ToLower _
                    Else MixedString += c.ToString.ToUpper
                Next
                Return MixedString
 
            Case StringCase.MixedCase_Word_Lower
                Dim MixedString As String = Nothing
                Dim Count As Integer = 1
                For X As Integer = 0 To str.Length - 1
                    Dim c As Char = str(X)
                    If Not c = " " Then Count += 1 Else Count = 1
                    If (Count / 2).ToString.Contains(",") Then _
                         MixedString += c.ToString.ToUpper _
                    Else MixedString += c.ToString.ToLower
                Next
                Return MixedString
 
            Case StringCase.MixedCase_Word_Upper
                Dim MixedString As String = Nothing
                Dim Count As Integer = 1
                For X As Integer = 0 To str.Length - 1
                    Dim c As Char = str(X)
                    If Not c = " " Then Count += 1 Else Count = 1
                    If (Count / 2).ToString.Contains(",") Then _
                         MixedString += c.ToString.ToLower _
                    Else MixedString += c.ToString.ToUpper
                Next
                Return MixedString
 
            Case StringCase.DelimitedCase_Lower
                Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
                Return rgx.Replace(str.ToLower, Delimiter)
 
            Case StringCase.DelimitedCase_Upper
                Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
                Return rgx.Replace(str.ToUpper, Delimiter)
 
            Case StringCase.DelimitedCase_Title
                Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
                Return rgx.Replace(Char.ToUpper(str(0)) + StrConv(str.Substring(1), VbStrConv.Lowercase), Delimiter)
 
            Case StringCase.DelimitedCase_Word
                Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
                Return rgx.Replace(System.Globalization.CultureInfo.CurrentCulture.TextInfo.ToTitleCase(str), Delimiter)
 
            Case StringCase.DelimitedCase_Mixed_Word_Lower
                Dim MixedString As String = Nothing
                Dim Count As Integer = 1
                For X As Integer = 0 To str.Length - 1
                    Dim c As Char = str(X)
                    If Not c = " " Then Count += 1 Else Count = 1
                    If (Count / 2).ToString.Contains(",") Then _
                         MixedString += c.ToString.ToUpper _
                    Else MixedString += c.ToString.ToLower
                Next
                Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
                Return rgx.Replace(MixedString, Delimiter)
 
            Case StringCase.DelimitedCase_Mixed_Word_Upper
                Dim MixedString As String = Nothing
                Dim Count As Integer = 1
                For X As Integer = 0 To str.Length - 1
                    Dim c As Char = str(X)
                    If Not c = " " Then Count += 1 Else Count = 1
                    If (Count / 2).ToString.Contains(",") Then _
                         MixedString += c.ToString.ToLower _
                    Else MixedString += c.ToString.ToUpper
                Next
                Dim rgx As New System.Text.RegularExpressions.Regex("\s+")
                Return rgx.Replace(MixedString, Delimiter)
 
            Case Else
                Return Nothing
 
        End Select
 
    End Function
 
#End Region