Mensajes

A mi me las ordena, Luis.

Creo que tu te estás refiriendo que además de ordenar la lista que contiene las combinaciones (de menos a mayor), ¿quieres ordenar los números de cada combinacion, por separado?.

saludos

nada tambien lo puse en el codigo y nada

No se que significa "nada", Luis.

Mira la imagen de mi último comentario, están las combinaciones ordenadas de menor a mayor, ¿ves alguna diferencia entre ese "output" y el que tu obtienes?, da más detalles, si el código es el que me pasaste y no le has echo modificaciones en este rato entonces tendría que funcionar.

Con que actives la propiedad una sola vez (sea donde sea) es suficiente, sácala del foreach porque la estás activando una y otra vez, de todas formas eso no supondría un problema, pero es innecesario.

saludos

lo que busco es ordenar las combinaciones que se muestran en el listbox ordenados de menor a mayor

Con esto ordenas las combinaciones de menor a mayor:

Código (vbnet) [Seleccionar] Expandir

       Dim Sorted As List(Of List(Of Integer)) =
           (From combo As List(Of Integer) In Combos
            Order By Convert.ToInt64(String.Join("", combo)) Ascending).ToList

Pero eso no es suficiente, sería algo más complicado de hacer ya que las combinaciones no tienen la misma longitud, los "0" son un añadido después.

Lo mejor es que olvides eso de ordenarlas tú y dejes que el listbox ordene los items por ti:

Código (vbnet) [Seleccionar] Expandir

ListBox1.Sorted = True



Saludos.

Código [Seleccionar] Expandir

<NUL Set /P="Palabra 1" & ...

La solución no es meterlo todo en un txt a modo puzzle para luego intentar unir las lineas piezas del texto, la solución es extraer correctamente la información del documento html, y ya se te indicaron varias maneras para hacerlo en la otra pregunta.

Saludos!

que puedo cambiar para que busque 2 palabras ?

Nada.

Reemplaza el uso de FIND por el comando FINDSTR y el nulo soporte la pobre capacidad que este proporciona para expresiones regulares.

Código [Seleccionar] Expandir

findstr /I "Palabra1 Palabra2"

Saludos

[RegEx:]

@novato04

1. Lo mejor sería que indiques a que lenguajes tienes acceso, porque está claro que Batch no es el único que puedes manejar, y cualquier solución para otro lenguaje sería mejor que en Batch,
En Batch no puedes utilizar RegEx de forma eficiente para la tarea, ni mucho menos parsear los XPaths del documento HTML, que eso es lo que deberías hacer ya que RegEx no fue diseñado para analizar HTML's.

2. Si la intención es obtener el nombre de la película entonces creo que estás observando el DIV equivocado.

RegEx:
Esta sería la expresión regular para obtener lo que hay entre el atributo title: title="Whiplash"> aunque como ya he dicho creo que estás mirando el DIV equivocado.

Código [Seleccionar] Expandir

\[b\]title=\[\/b\]\"([^\"]+)\"

Esta sería la expresión regular para obtener lo que hay entre el paragraph: "nombre-pelicula"><p>Whiplash</p>

Código [Seleccionar] Expandir

\"nombre-pelicula\"\>\<p\>(.+)\<\/p\>

XPath:
Este sería el XPath parcial (incompleto) para obtener lo que hay entre el paragraph "nombre-pelicula"><p>Whiplash</p>:

Código [Seleccionar] Expandir

.//*/li[1][@class='item']/div[1][@class='item-grid-imagen']/div[1][@class='nombre-pelicula']/p[1]

Coje un lenguaje decente capacitado para usar XPaths o RegEx y adelante, ólvida Batch. en mi opinión te sugiero utilizar C# o VB.NET, con la librería HtmlAgilityPack.

Saludos!

[SendKeys Class]

1. Si lei lo que dijistes tranquilo jaja,el caso es que no e mirado como se escribe,  en vscript Inicio y Fin .Tengo que mirarlo ahora mismo ,lo siento  

Código [Seleccionar] Expandir

.SendKeys "{HOME}"

Código [Seleccionar] Expandir

.SendKeys "{END}"

↠ SendKeys Class

3.Pues que ejecute tu vscript y tuve que toquetearlo un poco para que se ejecutara ,no quiero ofenderte ni nada no me malintepretes jaja  ,muchas gracias.

No me ofendes, solo intento averiguar porque a mi me funciona pero a ti no, ya que ese Script te ahorraría mucho código, pero no me has aclarado mucho sobre el porque "no funciona", ¿Así que ni siquiera se te ejecuta el script?.

puedo poner una pregunta tipo if como la tengo pero en vez de Si o no ,que ponga Disminuir Aumentar.Seria lo ideal,hombre ya se que seguro que se puede mejorar,pero a mi con que funcione,contento  .

No se si te lo dije ya pero VBS (al igual que Batch) es un lenguaje incapacitado para ciertas tareas, para mostrar un diálogo con una pregunta y con dos botones que pongan "Disminuir" y "Aumentar" no es algo posible a menos que dependas de la utilización del objeto com de InternetExplorer,
de todas formas en otros lenguajes ya es algo complicado hackear la class del msgbox y se recurre a la creación de un Form con dos botones, que eso es mucho más sencillo, pero que en VBS tampoco lo puedes hacer, claro está (sin depender de otras herramientas de terceros).

En VBS no hay un 'Choice' por así decirlo, osea, no vas a poder hacer parecido a esto:



Así que tienes dos opciones: mostrar un msgbox con un "SI" y "NO", o mostrar un InputUser donde debas escribir "Disminuir" o "Aumentar".
Lo primero es más cómodo, ¿verdad?:

Código (vb) [Seleccionar] Expandir

' Determino si se debe incrementar la velocidad, con una simple operación: CBool((6 o 7) - 7)
IncreaseSpeed = CBool(MsgBox("'SI' para aumentar, 'NO' para disminuir.", vbYesNo, "Velocidad del ratón...") - vbNo)

Sub MousePanelSendkeys()
' Aquí las instrucciones que tienes para abrir el panel del mouse y tal...
' Y cuando llegues a la instrucción de enviar la tecla 'FIN' o 'INICIO':

If IncreaseSpeed Then
.SendKeys "{END}" ' Incrementar velocidad.
Else
.SendKeys "{HOME}" ' Disminuir velocidad.
End If

   ' Aquí el resto de instrucciones para cerrar el panel y tal...

End Sub

Saludos

[Que habiamos hablado sobre dar detalles específicos del error]

¿Que habiamos hablado sobre dar detalles específicos del error?.

De decir esto:

me da este error que un valor de sistems no se puede convertir a string

A esto:

Código [Seleccionar] Expandir

Value of type 'System.Collections.Generic.List(Of Integer)' cannot be converted to 'String'.

...hay todo un trecho. y ya si indicases que instrucción es la que te da error, mejor aún.



Si has modificado la declaración de Combos entonces muestrala (Dim Combos As...)

El código me funciona, ¿quizás tengas activado Option Strict On?

Prueba así:

Código (vbnet) [Seleccionar] Expandir

   ListBox1.Items.Add(String.Join(", ",
                                  From value As Integer In comb
                                  Select If(CStr(value).Length = 1I,
                                            CStr(value).Insert(0I, "0"),
                                            CStr(value))))

Saludos!

[elektro]

En este mismo foro elektro (perdona si he escrito mal el nombre) publico un post con un montón de ellos.

↠ Ediciones oficiales de Windows 7 con SP1 integrado (Descargas directas aquí)

Donde puedo conseguir de nuevos?

Cualquier dll nativa la puedes extraer tras realizar una instalación limpia de la misma versión y edición de Windows que tienes instalada en una máquina virtual (ej: Oracle VBox),
pero de todas formas no creo que eso solucione el problema, parece más bien que ha habido una desactivación intencionada del producto por parte de Microsoft, quizás tras alguna actualización como te han comentado, me extraña, pero podría ser si usaste un activador mediocre.

1. Instálate este activador para Windows 7:
↠ DAZ Loader

2. En caso de que el activador no consiga solucionar el problema, instálate este Hack para los temas visuales de Windows:
↠ UXTheme Multi-Patcher

3. En caso de que el parche no consiga solucionar el problema, te sugiero reinstalar Windows o actualizar a Windows 8/8.1.

No afectará en absoluto al PC, no?

No supone ningún peligro mientras sigas el texto que subrayé.