[Solucionado] Separar una Cadena de Texto Caracter Por Caracter

[BlackZeroX]

.
jaja sabia que hiba a pasar esto...

en .NET lo haces en una linea con .ToCharArray.

@XXX-ZERO-XXX

la sintaxis de ese código es de .NET... ademas en .NET me parece que con Marshal se puede aun mas facil usando el ToChar que tiene la clase String si no mal recuerdo ( hace mucho que no toco .NET ).

Dulces Lunas!¡.

P.D.: Confundi/Mescle/Cague la clase Marshal.

Dulces Lunas!¡.

[Edu]

Pero digo cambiando lo de mi codigo por Mid() como decia seba, en fin, no les puedo discutir a ustedes que son unos masters, saludos

[raul338]

No se si sea lo mas rapido. Pero lo mas simple y rapido (midiendo instrucciones) es usar stronv y poniendolo a un array de bytes y de ahi se recorre facilmente

[79137913]

HOLA!!!

Osea... mi funcion que usa un EvilTypeConvert (o BadTypeConvert) y luego CHRW no es eficiente?

GRACIAS POR LEER!!!

[raul338]

La tuya usa nagia negra, la mia magia blanca

[Psyke1]

No se si sea lo mas rapido. Pero lo mas simple y rapido (midiendo instrucciones) es usar stronv y poniendolo a un array de bytes y de ahi se recorre facilmente

Más lento que la forma de BlackZer0x, pero más simple.

La tuya usa nagia negra, la mia magia blanca

Jajajajajaja
¡Exacto!

DoEvents!

[79137913]

HOLA!!!

Jajaja, "Magia Negra" XD.

Siempre y cuando la "Magia Negra" no crashee esta bien .

Por cierto que es StronV?

GRACIAS POR LEER!!!

[Psyke1]

...
Por cierto que es StronV?

GRACIAS POR LEER!!!

Me da que raulito se refiere es a la función StrConv()...

Dejo un ejemplo (aunque repito que mi manera favorita es la de BlackZer0x ) :

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Static Function String2Array(ByRef strText$, ByRef strOutPut$()) As Boolean
Dim bytStr() As Byte
Dim Q&, lngLen&

   lngLen = (LenB(strText) \ 2) - 1
   
   If lngLen And &H80000000 Then Exit Function
   
   '// Aquí el famoso "StronV"... xP
   bytStr = Strings.StrConv(strText, vbFromUnicode)
   ReDim strOutPut$(0 To lngLen)
   
   For Q = 0 To lngLen
       strOutPut(Q) = Strings.ChrW$(bytStr(Q))
   Next Q
   
   String2Array = True
End Function

Private Sub Form_Load()
Dim varItem
Dim strO$()
   
   If String2Array("Psyke1", strO) Then
       For Each varItem In strO
           Debug.Print varItem
       Next varItem
   End If
End Sub

Retorna:

Código [Seleccionar] Expandir

P
s
y
k
e
1

DoEvents!

[BlackZeroX]

@Psyke1

Si lo que deseas es comparar negativos es con:

&H80000000

ya que las mascaras que se hacen con el operador binario son:

&HF0000000: 11110000
&H80000000: 10000000

P.D.: hay ya que tocar de nuevo la wiki no crees xP.

Temibles Lunas!¡.

[Psyke1]

Oops! gracias, se me escapó...
corregido

...
P.D.: hay ya que tocar de nuevo la wiki no crees xP.

Temibles Lunas!¡.

Si hermano, estuve bastante ocupado estos últimos meses por estudios, pero a partir de Junio podré meterme con ello de nuevo

DoEvents!