Mensajes

quiero que estos resultados ya filtrados en resut7 pasen por otro filtro que seria el del rango 99

Código [Seleccionar] Expandir

Where Value <= Max).ToArray

No me ha quedado claro el poblema, en la variable resut7 declaras el array numérico, y en la otra variable (Result) ya "filtras" con LINQ, ¿Cual es el problema?.

PD: Lo importante si que lo entendí, no es necesario 4 o 5 variables para llevar a cabo una operación de ese tipo, símplemente odio ver ese tipo de cosas.

Saludos!

[me da el tipico error de que ya esta declarada el array]

me da el tipico error de que ya esta declarada el array " Results7s "

Hombre, error típico no es, lo que pasa es que tienes la mala costumbre de declarar variables innecesarias por todas partes del código, y al final tienes un lio.

En lugar de declarar varios arrays:

Código (vbnet) [Seleccionar] Expandir

Dim result1 as Integer()  = {1, 2, 3}
Dim result2 as Integer()  = {4, 5, 6}
Dim result2 as Integer() = {7, 8, 9}

Intenta declarar sólamente 1 array, y reemplazarlo/actualízarlo cuando sea necesario:

Código (vbnet) [Seleccionar] Expandir

Public Result as Integer() = {1, 2, 3}

...En otra parte del código:

Código (vbnet) [Seleccionar] Expandir

Me.Result = Me.Result.Concat({4, 5, 6}).Concat({7, 8, 9}).ToArray ' Por ejemplo.

De todas formas si prefieres seguir como hasta ahora, pues declara una nueva variable con otro nombre distinto y así no tendrás ese "típico error", de verdad no te lo tomes a mal pero no le veo ningún sentido a la duda que has posteado.

Saludos!

Versión 2.1 ~> http://www.mediafire.com/download/7qu4rpnhrruby6g/Color.NET.rar
( Solo código fuente )

Código [Seleccionar] Expandir

[+] Version 2.1 - Changes:
   
   [+] Fixed:
       · Hexadecimal string conversion sometimes are not shown correctly.
       · The 'Recent Colors' menu item sometimes throws an exception.

   [+] Changed:
       · Replaced a lot of code and added and internal Class 'ColorTools.vb' to get the pixel color and also manage the color-string conversions.

   [+] Deleted:
       · The 'ToolTipForm.vb' Form, now is managed by the 'ShowtoolTip' method.
       · Deleted unnecessary code (NativeMethods.vb)

[Luis456]

Se puede condicionar que los resultados de este array pasen de x numeros ?

¿Te refieres a descartar números que séan mayores de 99?

@Luis456, te sugiero que aprendas a usar LINQ ...será tu mejor aliado (por su sencillez, no por rendimiento) :

Código (vbnet) [Seleccionar] Expandir


Dim Max As Integer = 99

Dim arr1 As Integer() = {100, 2, 3}
Dim arr2 As Integer() = {4, 500, 6}
Dim arr3 As Integer() = {7, 8, 999}

Dim Result As Integer() =
(
  From Value As Integer In (arr1.Concat(arr2).Concat(arr3))
  Where Value <= Max
).ToArray

MsgBox(String.Join(", ", Result)) ' Result = {2, 3, 4, 6, 7, 8}


PD: En otro post te dije una url donde descargar 101 ejemplos de LINQ, si te lo estudiases un poco tendrías ejemplos como los que yo te pongo para un buen rato xD.

Saludos

A mi no me deja descargar, ¿me podrias facilitar un enlace por MP?

Hola,
He actualizado el enlace en la primera página ~> http://www.mediafire.com/download/ms5r82x12y32p8a/My%20Code%20Snippets.rar

Saludos!

[eliminar repetidos]

la idea es que los resulatdos de result1 y result2 unirlos para eliminar repetidos

( Siguiendo el código de arriba ) ~> Enumerable.Distinct (Método)

Código (vbnet) [Seleccionar] Expandir

Dim Result As Integer() = arr1.Concat(arr2).Concat(arr3).Distinct.ToArray

Saludos

[Enumerable]

Puedes usar LINQ:

Código (vbnet) [Seleccionar] Expandir

       Dim arr1 As Integer() = {1, 2, 3}
       Dim arr2 As Integer() = {4, 5, 6}
       Dim arr3 As Integer() = {7, 8, 9}

       Dim Result As Integer() =
           arr1.
           Concat(arr2).
           Concat(arr3).
           ToArray

       MsgBox(String.Join(", ", Result)) ' Result = {1, 2, 3, 4, 5, 6, 7, 8, 9}

¿Cual es el problema que tienes al concatenarlos?

Si tienes un Array puedes convertirlo/castearlo a un Enumerable para manejar LINQ.

Código (vbnet) [Seleccionar] Expandir


       Dim arr1 As Array = {1, 2, 3}
       Dim arr2 As Array = {4, 5, 6}
       Dim arr3 As Array = {7, 8, 9}

       Dim Result As Integer() =
           arr1.Cast(Of Integer).
           Concat(arr2.Cast(Of Integer)).
           Concat(arr3.Cast(Of Integer)).
           ToArray

       MsgBox(String.Join(", ", Result)) ' Result = {1, 2, 3, 4, 5, 6, 7, 8, 9}

Saludos!

Una Helper Class con utilidades variadas relacionadas con los colores:

Código (vbnet) [Seleccionar] Expandir


' ***********************************************************************
' Author   : Elektro
' Created  : 01-13-2014
' Modified : 01-13-2014
' ***********************************************************************

' --------------
' Public Methods
' --------------
'
' Screen.GetPixelColor
' Screen.GetPixelBrush
' Screen.GetPixelPen
'
' ColorConvert.ColorToBrush
' ColorConvert.ColorToPen
' ColorConvert.BrushToColor
' ColorConvert.PentoColor
'
' StringConvert.ColorToString
' StringConvert.BrushToString
' StringConvert.PenToString
' StringConvert.StringToColor
' StringConvert.StringToBrush
' StringConvert.StringToPen
' StringConvert.StringToString
'
' RandomGenerators.ARGB
' RandomGenerators.RGB
' RandomGenerators.QB
' RandomGenerators.ConsoleColor
' RandomGenerators.Brush
' RandomGenerators.Pen

La Class no cabe en un post, aquí la pueden ver ~> http://pastebin.com/88Q0wGPf

Ejemplos de uso:

Código (vbnet) [Seleccionar] Expandir

' Gets the color of the pixel at the 50,100 coordinates:
Dim c As Color = ColorTools.Screen.GetPixelColor(50, 100)

' Generates a random Brush
Dim br As SolidBrush = ColorTools.RandomGenerators.Brush

' Converts a SolidBrush to a Color:
Dim c As Color = ColorTools.ColorConvert.BrushToColor(New SolidBrush(Color.Red))

' Converts an HTML Color-String to a Color:
PictureBox1.BackColor = ColorTools.StringConvert.StringToColor("#FF00FFFF",
                                                               ColorTools.StringConvert.ValueFormat.HTML,
                                                               ColorTools.StringConvert.StringSyntax.None)

' Converts an Hex Color-String to a Color:
MsgBox(ColorTools.StringConvert.StringToColor("0x003399",
                                              ColorTools.StringConvert.ValueFormat.Hexadecimal,
                                              ColorTools.StringConvert.StringSyntax.None))

' Converts a Byte Color-String with VisyalStudio's property grid syntax to a Color:
MsgBox(ColorTools.StringConvert.StringToColor("255; 255; 255; 255",
                                              ColorTools.StringConvert.ValueFormat.Byte,
                                              ColorTools.StringConvert.StringSyntax.VisualStudioPropertyGrid).
                                              Name)

' Converts a HEX Color-String with VB.NET syntax to a Color:
MsgBox(ColorTools.StringConvert.StringToColor("Color.FromArgb(&HFF, &H5F, &HEC, &H12)",
                                              ColorTools.StringConvert.ValueFormat.Hexadecimal,
                                              ColorTools.StringConvert.StringSyntax.VBNET).
                                              ToString)

' Converts an HTML Color-String with C# Syntax to a Brush:
Dim br As Brush = ColorTools.StringConvert.StringToBrush("ColorTranslator.FromHtml(""#F71608"");",
                                                         ColorTools.StringConvert.ValueFormat.HTML,
                                                         ColorTools.StringConvert.StringSyntax.VBNET)

' Converts a Color-String to other Color-String:
MsgBox(ColorTools.StringConvert.StringToString("ColorTranslator.FromHtml(""#AF0CCAFE"");",
                                               ColorTools.StringConvert.ValueFormat.HTML,
                                               ColorTools.StringConvert.StringSyntax.CSharp,
                                               ColorTools.StringConvert.ValueFormat.Byte,
                                               ColorTools.StringConvert.StringSyntax.None,
                                               True))

Batch es (muy) limitado en comparación con el resto de lenguajes (lenguajes de verdad), sobretodo por las escasas (inexistentes) herramientas de trabajo del lenguaje y la pobre velocidad.
Si reálmente quieres llevar una idea de estas proporciones entonces lo primero que debes hacer es olvidarte del retrasado Batch y aprender un lenguaje.

Por otro lado entiendo que lo que pretendes hacer es una "IA" muy básica sin algoritmos complejos, pero de todas formas el hecho de intentar hacer esto en Batch es una completa pérdida de tiempo, no te va a servir para nada reálmente, ni para aprender.

Segúramente habrán "buenos" ejemplos por Google, pero cualquier cosa parecida hecha en Batch es una pérdida de tiempo.

PD: Empecé a escribir un código para mostrarte un ejemplo hecho en Batch, pero me ví tan limitado en cada acción sin nisiquiera un triste Array o expresiones regulares (actuales) para poder calcular la frase con más coincidencias, que al final no terminé el código ...es una completa pérdida de tiempo pudiendo disponer de la capacidad de cualquier otro lenguaje.

Como utilizo un "find" / "findstr" o "for" para conseguir buscar cierto segmento delimitado por un signo de puntuación,de la misma línea?

FINDSTR soporta Expresiones regulares limitadas, leete la ayuda del comando en la consola, es el único commando que te puede servir de alguna manera dentro de lo poco que te va a servir (junto a un FOR para hacerle un split a la cadena).

Ejemplo de uso:

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "String=Probando 123"

Echo "%String%" | FINDSTR "Probando.[0-9][0-9][0-9]" 1>NUL && (
Set "Match=True"
) || (
Set "Match=False"
)

Echo Coincide: %Match%

Pause&Exit

Saludos

[¿Qué es Color.Net?]

¿Qué es Color.Net?

Color.Net es una sencilla herramienta para para obtener la información del color del pixel actual sobre en pantalla. Color.Net está enfocado para programadores, pudiendo representar los valores ARGB en distintos lenguajes y formatos con un solo click !!. Características Representación del color en formatos ARGB, RGB, Hex, Web, Win32, HSL, Delphi, C# (Int), C# (Hex), C# (Web), Vb.Net (Int), Vb.Net (Hex), Vb.Net (Web), Visual Studio (Int), y Visual Studio (Hex). Magnificador de imagen (o lupa) Panel desplegable con selector de color. Atajos del teclado para copiar el formato al portapapeles sin perder el tiempo, o detenerse en un pixel en concreto. Vista previa de la aplicación de un color sobre distintos controles. Imágenes DESCARGA (v2.2) Compilación e Instalador Código fuente SI TE HA GUSTADO MI APORTE, ¡COMENTA!