Mensajes

.
Si, es posible usa el buscador puble dicho codigo hace ya como 3 años atras!¡.

Dulce Infierno Lunar!¡.

[Creo]

.
Es este el code 128...

http://infrangelux.sytes.net/FileX/index.php?dir=/BlackZeroX/BarCodes/Code%20128&file=code128.ttf

P.D.: No se mucho del tema pero Creo que puede ser con cualquier papel... mientras te lo pueda leer!¡.

Dulces Lunas!¡

.
Haber lo quieres en vb6... htmp... AJAX... javascript... o como.... No queda muy claro que digamos.

Por cierto que llevas de codigo (pon el codio que llevas)

Dulces Lunas!¡.

.
Me equivoque re Feo xP

Dulces Lunas!¡.
.

ha ocurrido un problema, son las 16:35 y el proceso ha finalizado por un error

Ver Imagen: http://s3.subirimagenes.com:81/privadas/previo/thump_1224097dibujo.jpg

el proceso muere cuando X e Y toman un valor superior a los 100.000... :S

Dim RUT(999999) As String
Dim MONTO(999999) As Integer
Dim INICIO(999999) As String
Dim MEDIO(999999) As String
Dim a  As String

Agregue un 9 mas a cada variable y espero que eso haya arreglado el problema, ahora estoy corriendo el proceso nuevamente

Gracias

Que feo desperdisio de memoria usa Redim preserve chico...

[El rescate de los mineros chilenos es uno de los temas de moda entre los twiteros mexicanos quienes hacen gala de humor y sarcasmo]

.
Estos son mis favoritos:

El rescate de los mineros chilenos es uno de los temas de moda entre los twiteros mexicanos quienes hacen gala de humor y sarcasmo

B_Solorzano opinó:
ya estaria pasando un comercial de tecate.."Por los que les gusta tomar hasta el fondo..."

Sabio28:
se esperarian a que terminara el partido Mexico vs Venezuela para iniciar el rescate

NeniuxContla:
ya habrían chistes de ellos: 1,2,3 x los mineros que estan debajo de la tierra!!!

Mariellalo:
Laura Bozzo estaria esperando al cabron que tiene 2 esposas: QUE PASE EL PINCHE MINERO INFIEL!!!

Adonai_quijano:
a la segunda vuelta del rescate a la capsula ya le faltarian piezas

FidelEsquivel:
ya hubieran terminado de grabar su disco desde la mina, y alternando con Belinda, RBD y Danna Paola.

eco-estrategas:
lo primero que harían al salir es ir a echarse unos tacos"< al pastor. Apunto.

FronteraMexico:
Fox les hubiera dado un Nobel por ser bien aguantadores

Dulces Lunas!¡.

.
Muy bueno.

Mecho texto pero esta bueno esto !¡.

Dulce Infierno Lunar!¡.

[carga un Buffer de mmm 1 mega en memoria]

yo veo el problema en los

Código (Vb) [Seleccionar] Expandir



Line Input #2, linea2



Mejor carga un Buffer de mmm 1 mega en memoria y recorres asi el archivo, es decir en memoria, en lugar de estar accediendo N Cantidad de Lineas al HD, recuerda que la memoria es mas rapida que la Lectura/Escrira en el HD.

Dulces Lunas!¡.

Si la función en VB tiene vbFromUnicode, en C++, se me crashea, eso lo pensé y lo intenté pero sin resultados favorables.
Lo has probado?

mmmm... Si no funciona esto entonces ya no se que es xP

Código (Vb) [Seleccionar] Expandir



Option Explicit

Private Sub Form_Load()
    Dim arrbyte() As Byte
    arrbyte() = StrConvFromUnicode("hola")
    MsgBox Chr(arrbyte(0)) & Chr(arrbyte(1)) & Chr(arrbyte(2)) & Chr(arrbyte(3))
End Sub

Function StrConvFromUnicode(ByVal vData As String) As Variant
Dim lng_Index                               As Long
Dim Int_Asc                                 As Integer

    For lng_Index = 1 To Len(vData)
        Int_Asc = Asc(Mid$(vData, lng_Index, 1))
        If Int_Asc And &HFF00 Then
            StrConvFromUnicode = StrConvFromUnicode & ChrB(Int(Int_Asc / 256) And &HFF)
            StrConvFromUnicode = StrConvFromUnicode & ChrB(Int_Asc And &HFF)
        Else
            StrConvFromUnicode = StrConvFromUnicode & ChrB(Int_Asc)
        End If
    Next
End Function



Dulce Infierno Lunar!¡

[Unicode]

.
Como Dato:

Código (Vb) [Seleccionar] Expandir



Private Function MTrim(ByVal s As String) As String
Dim i As Long
Dim res As String

For i = 1 To Len(s)
   If Mid$(s, i, 1) <> Chr$(0) Then
       res = res & Mid$(s, i, 1)
   End If
Next

MTrim = res
End Function



Queda mejor asi!¡:

Código (vb) [Seleccionar] Expandir



Private Function NullTrim(ByVal vDataIn As String) As String
Dim Lng_Pos                                 As Long
   Lng_Pos = InStr(1, vDataIn, Chr(0)) - 1
   If Lng_Pos > 0 Then NullTrim = Mid$(vDataIn, 1, Lng_Pos)
End Function



Para quitar los chr(0) de los string (Unicode) solo se me ocurrre hacer esto en un array de bytes.

Código (Vb) [Seleccionar] Expandir



   Dim arrbyte() As Byte
   arrbyte() = StrConv("hola", VbStrConv.vbFromUnicode)
   MsgBox Chr(arrbyte(0)) & Chr(arrbyte(1)) & Chr(arrbyte(2)) & Chr(arrbyte(3))



Dulces Lunas!¡.