Eso no le sirve, Choice es una cosa, pero %choice% es un nombre de variable como podría haberse llamado %pepito%.

En todo caso habría que mandarle a buscar "Variables Batch" en Google xD.

@asdexiva
Con For /D se procesan las carpetas de "X" directorio: http://ss64.com/nt/for_d.html

Hola

No sé javascript pero según lo que puedo deducir en tu code, no estás modificando/devolviendo el valor de "precio", solo estás mostrando, ¿me equivoco?.

¿Has probado así?:

function precio(naranjas)
{
  return naranjas * 5;
}
console.log(precio(5));

Saludos

%choice% es una variable que contiene un nombre de un directorio.

En alguna parte del código que no has mostrado, debe aparecer lo siguiente:

Lo que está a la derecha del símbolo "=" es el contenido de la variable choice.

Saludos

Pues no amigo, en Batch podrías hacerlo a utf-16, pero a utf-8 no.

Por eso la pregunta, ¿de que lenguajes de scripting dispones instalados en tu máquina? xD, en python y ruby es muy fácil.

En VBS sería así:

Set stream = CreateObject("ADODB.Stream")
 
With stream
	.Open
	.Type     = 2
	.Position = 0
	.Charset  = "utf-8"
	.WriteText CreateObject("Scripting.FileSystemObject").OpenTextFile(WScript.Arguments(0), 1).ReadAll
	.SaveToFile WScript.Arguments(1), 2
	.Close
End With
 
Wscript.Quit(0)

Lo he codeado para que puedas pasarle argumentos, de esta manera:

Script.vbs "Archivo ANSI.txt" "Nuevo archivo UTF-8.txt"

Puedes hacer un For en Batch para recorrer todos los archivos de texto:

For %%X in ("*.txt") Do (Script.vbs "%%X" "UTF-8 %%X")

...O puedes usar aplicaciones commandline para convertir entre las distintas codificaciones de texto, como por ejemplo "iconv", o "stringconverter", y usar el FOR que te he mostrado pero con la aplicación que vayas a usar.

Saludos.

Si, es lo que pasa cuando me ofuscan.

Saludos

El primer código es el formulario de un proyecto...

El segundo código es una Class que contiene un control extendido...

...Ya te lo dije, si no aprendes lo básico yo no te facilitaré códigos (Ni a nadie que siga el mismo camino),
si para ti ha sido imposible ver o entender la diferencia entre esos dos codes (No me extraña, no lees) aquí tienes algo de información para empezar a leer y entender como se puede usar el segundo code:

Google + VBNET + User controls



Saludos

Si leyeras sin prisas verías que NovLucker no ha aportado Snippets porque él no tiene Snippets (Como dijo en los comentarios del principio de este hilo), símplemente comentó para ayudarme a intentar perfeccionar la manera en la que yo codeaba las cosas.

Saludos

ABDERRAMAH

Las visitas me dan igual ...pero es una situación crítica que de 10.000 lecturas sólamente 3 personas (incluida yo) hayan participado a contribuir.

 Abre un archivo o una carpeta en el explorador de Windows

#Region " Open In Explorer "
 
    ' [ Open In Explorer ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Open_In_Explorer("C:\Folder\")
    ' Open_In_Explorer("C:\Folder\File.txt")
 
    Private Sub Open_In_Explorer(ByVal File_Or_Folder As String)
 
        If File_Or_Folder.EndsWith("\") Then File_Or_Folder = File_Or_Folder.Substring(0, File_Or_Folder.Length - 1)
 
        If IO.Directory.Exists(File_Or_Folder) Then
            Dim FileInformation As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(File_Or_Folder)
            Process.Start("explorer.exe", " /select," & IO.Path.Combine(FileInformation.DirectoryName, FileInformation.Name))
        ElseIf IO.File.Exists(File_Or_Folder) Then
            Dim FolderInformation As IO.DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo(File_Or_Folder)
            Process.Start("explorer.exe ", FolderInformation.FullName)
        Else
            Throw New Exception(File_Or_Folder & " doesn't exist")
        End If
 
    End Sub
 
#End Region

---

 Abre un dialogo y selecciona un proceso para ejecutar un archivo.

#Region " Open With... "
 
    ' [ Open With... ]
    '
    ' // By Elektro H@cker
    '
    ' Examples :
    ' Open_With("C:\File.txt") ' And select "Notepad.exe" in the Dialog...
 
    Private Sub Open_With(ByVal File_Or_Folder As String)
 
        Dim OpenWith As New OpenFileDialog()
        OpenWith.InitialDirectory = Environ("programfiles")
        OpenWith.Title = "Open file with..."
        OpenWith.Filter = "Application|*.exe"
 
        If OpenWith.ShowDialog() = DialogResult.OK Then
            Process.Start(OpenWith.FileName, " " & """" & File_Or_Folder & """")
        End If
 
    End Sub
 
#End Region