Autor Tema: Podrian Publicar funciones para procesar Cadena de texto (Leído 8393 veces)

Jimbenit · « **en:** Viernes 12 de Septiembre de 2008, 20:45 »

Aveces es necesario procesar cadenas de texto, sé que muchos de ustedes se han encontrado con que tienen que diseñar funciones o sub-procedimientos para poder procesar cadenas de texto de una manera muy especial.

Pues este post lo hice con la intencion para que publiquen sus funciones (esas que ustedes han diseñado) que trabajen con cadenas de TEXTO.
Empiezo yo.

En cierta ocasion tuve que diseñar una funcion que me pasara una cadena de texto en sus equivalentes ASCII, pero con un formato especial, por ejemplo:
"Hola mundo"
El resultado debia ser:

10,72,111,108,97,32,109,117,110,100,111

Donde el primer numero indica el numero de caracteres de la cadena y los demas numeros son sus equivalentes ASCII

La funcion es la siguiente:

Código: Text

Function CadenaASCII(CadenaNormal As String) As String
'Esta funcion recibe una cadena y como resultado da
'El numero de caracteres con los caracteres pasados a sus valores
'de la tabla ASCII
'EJEMPLO:
'CadenaASCII("YAIR")
'da como resultado
'4,89,65,73,82
'Donde el primer numero (4), es el numero de caracteres
'Y los siguientes numeros son las letras en sus valores ASCII
 
Dim NumLet As Long
Dim LetrASCII As String
Dim Cadena As String
Cadena = CadenaNormal
Cadena = Trim(Cadena)
NumLet = Len(Cadena)
 
For i = 1 To NumLet
    LetrASCII = Asc(Mid(Cadena, i, 1))
    
    If NumLet = 1 Then
        CadenaASCII = LetrASCII
    ElseIf i = 1 Then
        CadenaASCII = LetrASCII & ","
    ElseIf i = NumLet Then
        CadenaASCII = CadenaASCII & LetrASCII
    Else
        CadenaASCII = CadenaASCII & LetrASCII & ","
    End If
Next i
 
CadenaASCII = NumLet & "," & CadenaASCII
 
End Function
 

Copienla en un modulo y pruebenla en la ventana inmediato y luego me cuentan que les parece,
Publiquen las suyas!!

saludos.

Nebire

Esa misma función puede optimizarse ... y no precisa señalar cuantos caracteres tiene.
el trim no deberías hacerlo ya que si la idea es convertir una cadena de texto a una equivalente numérica estarías eliminado información, si resultara necesario hacerlo entonces debe especificarse claramente 'quitar espacios a ambos lados y convertirla a....' pero entonces el nombre de la función habría que cambiarla ya que así se prestaría a confusión.

Por ejemplo:

Código: Visual Basic

 
Function CadenaASCII(CadenaNormal As String) As String
     dim k as long, cadena as string
    
     on local error goto errorSobrepasa:
     if cadenanormal="" then exit function
     if len(cadenanormal)=1 then
         CadenaASCII= asc(cadenanormal) 
        exit function
     else
          if len(cadenanormal)>16383 then 
               msgbox "Existen posibilidades de que se produzca un error..."
          end if
     end if
         for k=1 to len(cadenanormal)-1  ' el último carácter lo quedamos fuera del bucle
           cadenanormal=cadenanormal & asc(mid$(cadenanormal,k,1)) & ","
         next ' al finalizar el bucle, k todavía aumenta en 1
         cadenanormal=cadenanormal & asc(mid$(cadenanormal,k,1)) ' tras el último carácter no añadimos la coma
 
        CadenaASCII=cadenanormal
        exit function
errorSobrepasa:
     msgbox "Cada carácter de entrada genera entre 2 y 4 caracteres de salida. en VB6 el tamaño máximo de una cadena son 65535 caracteres, dicho valor se ha alcanzado con el " & k " ésimo carácter de la cadena de entrada..." & vbcrlf & err.description
     CadenaASCII=cadenanormal
end sub
 
 

Simplemente quitamos las comprobaciones , enlentecen el trabajo y solo va a entrar en las comprobaciones 1 vez cuando es el primer carácter, pero se comprueba con cada carácter, en todo caso ese carácter hacerlo antes del bucle y para el último carácter lo mismo, sólo entrará en el último ciclo del bucle por tanto acortamos el ciclo en una unidad y al final añadimos el último carácter, pero ahorrándonos , las comprobaciones con cada carácter.

Por cierto tu función dará error cuando le pases una cadena de cierto tamaño... lee los msgbox que he puesto en el código.
En otro momento te pongo una función de esas que pides...

F_Tanori

A ver prueba esta a ver si te funciona

Código: Visual Basic

Function ConvertAscii(ByRef as_Cadena As String) As String
On Error GoTo xError
    Dim i As Integer, AsciiCode() As Byte
    AsciiCode = as_Cadena
    For i = LBound(AsciiCode) To UBound(AsciiCode) Step 2
        ConvertAscii = ConvertAscii & Format(AsciiCode(i), ",00")
    Next i
    ConvertAscii = (i / 2) & ConvertAscii
 
xError:
    If Err.Number > 0 Then
        ConvertAscii = Err.Description
        Err.Clear
    End If
End Function
 
 

Saludos

m0skit0

Estilo programación funcional:

Código: Visual Basic

 
Function ConvertAscii(ByRef as_Cadena As String) As String
     If as_Cadena = vbNullString Then
          ConvertAscii = vbNullString
     Else
          ConvertAscii = CStr(AscB(Left(as_Cadena,1))) & ConvertAscii(Right(as_Cadena,Len(as_Cadena) - 1))
     End If
End Function
 
 

No la he probado, así que es sólo teórico

Jimbenit

Moskito. Revisa el siguiente codigo, no esta bien.

Código: Text

Function ConvertAscii(ByRef as_Cadena As String) As String
      If as_Cadena = vbNullString Then
           ConvertAscii = vbNullString
      Else
           ConvertAscii = CStr(AscB(Left(as_Cadena,1))) & ConvertAscii(Right(as_Cadena,Len(as_Cadena) - 1))
      End If
 End Function
 

Jimbenit

La funcion inversa de esta...

Código: Text

Function CadenaNormal(CadenaASCII As String) As String
'Convierte una cadena de formato ASCII en formato normal legible
'EJEMPLO:
'considere la cadena "4,89,65,73,82"
'esta función devuelve "YAIR"
 
 
Dim NroCaracteres As Long       'Cuenta el numero de caracteres de la cadena ASCII
Dim Letr As String
Dim NumLet As Long
Dim PosComas() As Long
Dim NrsASCII() As String
Dim Cont As Long
Dim ComaDemas As Long   'Si existe una comas demas, esta variable almacena suposicion para su posterior reemplazo
 
CadenaASCII = Trim(CadenaASCII)
NroCaracteres = Len(CadenaASCII)
 
For i = 1 To NroCaracteres          'Obtiene el numero de letras de la cadena normal
    Letr = Mid(CadenaASCII, i, 1)
    If Asc(Letr) = 44 Then
        NumLet = Val(Left(CadenaASCII, i - 1))
        Exit For
    End If
Next i
 
ReDim PosComas(NumLet)
Cont = 0
For i = 1 To NroCaracteres          'Obtiene la posicion de las comas y las introduce en el vetor POSCOMAS
    Letr = Mid(CadenaASCII, i, 1)
    If Asc(Letr) = 44 Then
        Cont = Cont + 1
        If Cont > NumLet Then       'Si hay comas demas que no hacen parte de la palabra, sera eliminada
            ComaDemas = InStr(PosComas(Cont - 1) + 1, CadenaASCII, ",")
            CadenaASCII = Mid(CadenaASCII, 1, ComaDemas - 1)
            Exit For
        End If
        PosComas(Cont) = i
    End If
Next i
 
'Si se introduce un cero, se devuelve vacio ("")
If NumLet = 0 Then CadenaNormal = ""
'If NumLet = 0 Then Exit Sub
ReDim NrsASCII(NumLet)
 
If NumLet = 1 Then      'Introduce los numeros ASCII en el vector NrsASCII
    NrsASCII(NumLet) = Mid(CadenaASCII, PosComas(NumLet) + 1)
Else
    For i = 1 To NumLet
        If i = NumLet Then
            NrsASCII(i) = Str(Val(Mid(CadenaASCII, PosComas(i) + 1)))
        Else
            NrsASCII(i) = Mid(CadenaASCII, PosComas(i) + 1, PosComas(i + 1) - PosComas(i) - 1)
        End If
    Next i
End If
 
For i = 1 To NumLet
    CadenaNormal = CadenaNormal & Chr(Val(NrsASCII(i)))
Next i
            
End Function
 
 

Jimbenit

Mokito, saludos desde Colombia, me gustaria que revisaras el codigo antes de envialo.

Cita de: "m0skit0"

Estilo programación funcional:
No la he probado, así que es sólo teórico

F_Tanori, es excelente tu función.

Citar

Function ConvertAscii(ByRef as_Cadena As String) As String
On Error GoTo xError
Dim i As Integer, AsciiCode() As Byte
AsciiCode = as_Cadena
For i = LBound(AsciiCode) To UBound(AsciiCode) Step 2
ConvertAscii = ConvertAscii & Format(AsciiCode(i), ",00")
Next i
ConvertAscii = (i / 2) & ConvertAscii

xError:
If Err.Number > 0 Then
ConvertAscii = Err.Description
Err.Clear
End If
End Function

Citar

errorSobrepasa:
msgbox "Cada carácter de entrada genera entre 2 y 4 caracteres de salida. en VB6 el tamaño máximo de una cadena son 65535 caracteres, dicho valor se ha alcanzado con el " & k " ésimo carácter de la cadena de entrada..." & vbcrlf & err.description
CadenaASCII=cadenanormal

Nebire, si asi es... tienes razón, pero para cadenas cortas esta buena, no??

m0skit0

Cita de: "Nilson Yair"

Revisa el siguiente codigo, no esta bien.

Sip, cierto, había un 5 de más debido a vbNullString.

Código: Visual Basic

 
Function ConvertAscii(ByRef as_Cadena As String) As String
 
    If as_Cadena = vbNullString Then
        ConvertAscii = ""
    Else
        ConvertAscii = CStr(AscB(Left(as_Cadena, 1))) & "," & ConvertAscii(Right(as_Cadena, Len(as_Cadena) - 1))
    End If
 
End Function

Sí, tiene una coma de más al final

Cita de: "Nilson Yair"

F_Tanori, es excelente tu función.

Tienes un juicio discutible...

En cuanto a tu función inversa es demasiado código para algo tan sencillo.

La inversa de la mía (donde la cadena lleva una coma al final):

Código: Visual Basic

 
Function ConvertString(ByRef str_Cadena As String) As String
 
    If str_Cadena = vbNullString Then
        ConvertString = ""
    Else
        ConvertString = Chr(CInt(Left(str_Cadena, InStr(1, str_Cadena, ",") - 1))) & ConvertString(Right(str_Cadena, Len(str_Cadena) - InStr(1, str_Cadena, ",")))
    End If
 
End Function

El problema de la coma es fácilmente solucionable fuera de las funciones, así que no lo considero un error. Saludos.

Jimbenit

Citar

Sí, tiene una coma de más al final
Tienes un juicio discutible...

Bueno, mi funcion para pasar a ascii posee una coma demas al final cuando el resultado es un solo numero

Por ejemplo:
'En la ventana inmediato prueba esto:

Código: Text

PRINT convertascii(""),,, cadenaascii("")
 

La funcio de la izq. es la de F_tenori, y la mia es la de la derecha.

¿Ves la diferencia de la coma?, pero para propositos practicos, esta buena... (hey, me agradas, VEO QUE ESTAS MUY CONECTADO!!!,

)

Jimbenit

Citar

En cuanto a tu función inversa es demasiado código para algo tan sencillo.

La inversa de la mía (donde la cadena lleva una coma al final):

Mostrar/Ocultar Número de línea | Expandir/Contraer | Seleccionar todo

1.
2. Function ConvertString(ByRef str_Cadena As String) As String
3.
4. If str_Cadena = vbNullString Then
5. ConvertString = ""
6. Else
7. ConvertString = Chr(CInt(Left(str_Cadena, InStr(1, str_Cadena, ",") - 1))) & ConvertString(Right(str_Cadena, Len(str_Cadena) - InStr(1, str_Cadena, ",")))
8. End If
9.
10. End Function
11.

Estas como que diciendo incoherencias...
Mira esta funcion que pusiste "La inversa", esta mala... ¿Otraves enviando funciones sin probarlas?....

copia este codigo en la ventana inmediato y prueba esto (con tu funcion inversa)

Código: Text

PRINT convertstring("4,89,65,73,82")
 
 

El resultado deberia ser "YAIR" pero esto da un error, ¿¿estas practicando programacion funcional?? (cambia de manual)

Moskito, saludos amigo...

Jimbenit

Citar

MOSKITO DICE:
Tienes un juicio discutible...
En cuanto a tu función inversa es demasiado código para algo tan sencillo.

Bueno mira, la coma del final en tu funcion esta como requisito indispensable, acuerdate que es la funcion inversa de la primera, la cual no tiene coma al final (excepto cuando el valor resultado es un solo numero, como en el caso de : "")
¿Acaso se te hace dificil quitar esta coma del final dentro de esta misma función?, eso es por tu amor por a la recursividad, cierto ?

y sobre lo de "demasiado codigo" (puede que sea cierto y tengas razón)

Me quede esperando las funciones de ustedes, me gustaria revisarlas

Jimbenit

Citar

MOSKITO DICE:
El problema de la coma es fácilmente solucionable fuera de las funciones, así que no lo considero un error

Bien, y que me dices del primer caracter generado por tu funcion...?

Código: Text

print  convertstring("4,89,65,73,82,")
YAIR

Jimbenit

Ya se , ya se, ya se que he puesto muchos post referentes a este tema, solo espero que los moderadores me tengan algo de paciencia.

[LA PRUEBA DE FUEGO]

Recuerdan cuando uno estaba pequeño, aprendiendo la división?, cuando los profesores mandaban a uno a probar la división de dos cifras, el resultado (el cociente) se multiplicaba por el divisor y se le sumaba el residuo, este resultado debia ser el dividendo... recuerdan?

Pues bien, probemos las funciones de cadena para pasar a ascii y la funcion inversa

Código: Text

Print CadenaNormal(CadenaASCII("YAIR"))
 

[/color]

El resultado es "YAIR", si no da este resultado las funciones ( o una de las dos)estan malas.... ok?...

saludos.

Dificil???

Pues si... lo hacemos un poquito mas agradable.

F_Tanori

Cita de: "Nilson Yair"

Citar
MOSKITO DICE:
El problema de la coma es fácilmente solucionable fuera de las funciones, así que no lo considero un error

Bien, y que me dices del primer caracter generado por tu funcion...?

Código: Text
print convertstring("4,89,65,73,82,")
YAIR

Es por el numero 4 que tienes a iniciar la cadena ya que moskito no concidera el numero de caracteres de la cadena

igual ocurrira un error sin una coma al final lo cual a mi si me parece un error

Incluso hay variacion de resultados (Nebire lo coloque al ultimo porque al parecer modifica la cadena y nos afecta al usarla byRef)

Código: Visual Basic

Function Test(ByRef Text As String)
    Debug.Print "Yair = " & Space(10) & CadenaASCII(Text)
    Debug.Print "F_Tanori = " & Space(6) & ConvertAscii(Text)
    Debug.Print "Moskito = " & Space(10) & ConvertAscii_Moskito(Text)
    Debug.Print "Nebire = " & Space(8) & CadenaASCII_Nebire(Text)
End Function
 

Saludos

F_Tanori

Esta es mi solucion inversa

Código: Visual Basic

Function ConvertString_FTanori(ByRef as_Cadena As String) As String
On Error GoTo xError
    Dim i As Integer, AsciiCode
    
    AsciiCode = Split(as_Cadena, ",")
    
    For i = LBound(AsciiCode) + 1 To UBound(AsciiCode)
        If AsciiCode(i) <> Empty Then
            ConvertString_FTanori = ConvertString_FTanori & Format(Chr(AsciiCode(i)), " ")
        End If
    Next i
 
xError:
    If Err.Number > 0 Then
        ConvertString_FTanori = Err.Description
        Err.Clear
    End If
End Function
 

Asume que lleva la longitud al inicio de la cadena

Debug

Código: Text

?ConvertString_FTanori("4,89,65,73,82")
 

Saludos

Jimbenit

Moskito no se donde tiene la cabeza, su funcion tiene un error es el siguiente ejemplo:

Código: Text

print convertstring("1")
 

Parece que no acostumbra a verificar su funcion antes de postearla
Mi función tiene un error cuando el numero de caracteres sobrepasa cierto limite, como anoto Nebire

Citar

if len(cadenanormal)>16383 then
msgbox "Existen posibilidades de que se produzca un error..."
end if

Nuevamente, F_Tanori... muy bien por la función inversa.

Jimbenit

Cuando digo:

Citar

Nuevamente, F_Tanori... muy bien por la función inversa.

No quiero decir que la de F_Tanori sea perfecta, de hecho no lo es...

miremos el siguiente codigo... comparemos.

Código: Text

print ConvertString_FTanori("4,89,65,73,82,15,65"),,cadenanormal("4,89,65,73,82,15,65")
YAIRA                      YAIR

A la izquierda la de Tanori; a la derecha, la mia
¿Que paso?, parece que la de Tanori no usa el primer numero (4) como parametro de cantidad de lectura de la función

Ahora si ven por que no es perfecta?

Jimbenit

Error Tanori

Miremos el sigueinte codigo:

Código: Text

For i = LBound(AsciiCode) + 1 To UBound(AsciiCode)      'El limite superior no es el primer numero de la cadena?, o acaso es el numero de comas??
 

F_Tanori

Cita de: "Nilson Yair"

Cuando digo:
Citar
Nuevamente, F_Tanori... muy bien por la función inversa.
No quiero decir que la de F_Tanori sea perfecta, de hecho no lo es...

miremos el siguiente codigo... comparemos.

Código: Text
print ConvertString_FTanori("4,89,65,73,82,15,65"),,cadenanormal("4,89,65,73,82,15,65")
YAIRA YAIR

A la izquierda la de Tanori; a la derecha, la mia
¿Que paso?, parece que la de Tanori no usa el primer numero (4) como parametro de cantidad de lectura de la función

Ahora si ven por que no es perfecta?

Por supuesto que ninguna programacion es perfecta, ahora en mensajes anteriores quedo claro que
"4,89,65,73,82" daba como resultado YAIR (esta cadena incluye la longitud de la cadena en texto) y en el ejemplo de este mensaje estas colocando otra palabra

"4,89,65,73,82,15,65"

Aqui da como resultado YAIR
ConvertString_FTanori("4,89,65,73,82")

Aqui da como resultado YAIRA
ConvertString_FTanori("4,89,65,73,82,15,65") ' Ya que hay 2 caracteres de mas y el 15 "es el cuadrito" 65 es "A" que se ve al final

Arreglo (0) = 4
Arreglo (1) = 89
Arreglo (2) = 65
Arreglo (3) = 73
Arreglo (4) = 82
Arreglo (5) = 15
Arreglo (6) = 65

Estariamos hablando de una cadena de longitud 6 por lo tanto la posicion cero que es la longitud de la cadena miente porque dice 4

Tu funcion daria el mismo resultado de esta manera

cadenanormal("6,89,65,73,82,15,65")
YAIRA

Saludos

F_Tanori

Cita de: "Nilson Yair"

Error Tanori

Miremos el sigueinte codigo:

Código: Text
For i = LBound(AsciiCode) + 1 To UBound(AsciiCode) 'El limite superior no es el primer numero de la cadena?, o acaso es el numero de comas??

Código: Text

LBound(AsciiCode) 
 

Dara como resultado 0 que es la posicion que guarda la longitud de la cadena

Código: Visual Basic

LBound(AsciiCode)  + 1 
 

Solo la posicion 0 y despues convierte los caracteres de la cadena pasada como parametro, pero si hay que generar solo la longitud que viene en la cadena aqui esta el SP 1

Código: Text

Function ConvertString_FTanori(ByRef as_Cadena As String) As String
On Error GoTo xError
    Dim i As Integer, AsciiCode
    
    AsciiCode = Split(as_Cadena, ",")
    
    For i = LBound(AsciiCode) + 1 To AsciiCode(0)
        If AsciiCode(i) <> Empty Then
            ConvertString_FTanori = ConvertString_FTanori & Format(Chr(AsciiCode(i)), " ")
        End If
    Next i
 
xError:
    If Err.Number > 0 Then
        ConvertString_FTanori = Err.Description
        Err.Clear
    End If
End Function
 
 

Saludos

Jimbenit

Al principio de este post dije:

Citar

En cierta ocasion tuve que diseñar una funcion que me pasara una cadena de texto en sus equivalentes ASCII, pero con un formato especial, por ejemplo:
"Hola mundo"
El resultado debia ser:

10,72,111,108,97,32,109,117,110,100,111

Donde el primer numero indica el numero de caracteres de la cadena y los demas numeros son sus equivalentes ASCII

Cierto???
Pues bien, el numero de caracteres leidos esta especificado por el primer numero que aparece en la cadena, por que si no es asi entonces ¿De que serviría estar en la cadena?

Con lo anterior quiero decir que no importa cuantos numeros aparezcan en esta cadena, solo seran leidos la cantidad de caracteres que se especifiquen en el primer numero de la cadena.

Pero... me impresiona mucho la capacidad de este codigo... en serio....

Muy bien.... muy bien hecho... de verdad..

Jimbenit

Excelente Tanori... excelente

Fue divertido, no???

Jimbenit

[INICIANDO NUEVA FUNCION]

Ya que ninguno publica sus funciones de procesamientos de texto, el cual es el objetivo principal de este post, yo publicaré otra de mis funciones de procesamiento de texto

En cierta ocasión una vez tuve que diseñar un codigo que me permitiera guardar datos en un bloc de notas pero con un formato muy especial , este formato es el siguiente:

El bloc de notas debia ser organizado por filas y columnas, y guardar los datos de acuerdo a esta posición.
Ejemplo:

Código: Text

Call EscribirDatoMATRIZ(3, 10, "Cadena guardada en (F= 10, C=3)", "C:BlocMio.txt")
 

Lo anterior guarda "Cadena guardada en (F= 10, C=3)" en la posicion : fila 10 , columna 3 del orden que se invento en esta función[/color], las comas separan las COLUMNAS y las filas del bloc de notas separan las FILAS de este formato

Si quisiera guardar el numero 20, de acuerdo al orden aqui descrito en la posicion Fila = 4, Columna = 3: el codigo seria el siguiente:

Código: Text

Call EscribirDatoMATRIZ(3, 4, 20, "C:BlocMio.txt")
 

"C:BlocMio.txt" es la ruta donde este archivo se guarda.
[/color]

El proceso es el siguiente:

Código: Text

Sub EscribirDatoMATRIZ(Colum As Long, Fila As Long, Dato As Variant, RutaArchivo As String)
'Guarda datos en un bloc notas en forma de comas... utiliza el bloc
'como una matriz ordenada por filas y columnas... [Mayo 5 / 2008]
 
Dim Contador As Double
Dim Vector() As Variant
Dim Caracter As String
Dim Max As Double
Dim Linea As Long
Dim Cadena As String
Dim NumLet As Long
Dim Letr As String
Dim Cont As Long
Dim PosComas() As Long
Dim Pedazo1 As String
Dim Pedazo2 As String
Dim Comas_Add As Long
 
If Dir(RutaArchivo) = "" Then           'Comprueba si existe archivo, en caso de no existir, lo crea.
    Open RutaArchivo For Output As #1
    Print #1, " "
    Close #1
End If
 
Linea = Fila
 
For j = 1 To 2          'Introduce todas las lineas del Bloc notas en un Vector llamado Vector()
    Open RutaArchivo For Input As #1
    While Not EOF(1)                'Cuenta las lineas del Bloc Notas
        Line Input #1, Caracter
        i = i + 1
        If j = 1 Then
            Contador = i
        ElseIf j = 2 Then       'Si j = 2 , se escriben las lineas dentro del vector
            Vector(i) = Caracter
        End If
    Wend
    Close #1
    If j = 1 Then
        If Linea > Contador Then        'Define el tamaño del vector
            ReDim Vector(1 To Linea)
            Max = Linea
        Else
            ReDim Vector(1 To Contador)
            Max = Contador
        End If
        i = 0
    End If
Next j
 
 
For i = 1 To Max        'Obtiene la fila en string separada por comas
    If i = Fila Then
        Cadena = Vector(i)
    End If
Next i
 
            'Obtención de las posiciones de las comas
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        NumLet = Len(Cadena)
        For i = 1 To NumLet     'Cuenta las comas dentro de la cadena
            Letr = Mid(Cadena, i, 1)
            If Asc(Letr) = 44 Then
                Cont = Cont + 1
            End If
        Next i
 
        If Colum > Cont + 1 Then        'Columna vacia
            Comas_Add = Colum - (Cont + 1)
            For i = 1 To Comas_Add
                Cadena = Cadena & ", "
            Next i
            Cont = Colum - 1
        End If
        
        NumLet = Len(Cadena)
        ReDim PosComas(Cont)
        Cont = 0
        For i = 1 To NumLet     'Coloca las posiciones de las comas dentro del vector
            Letr = Mid(Cadena, i, 1)
            If Asc(Letr) = 44 Then
                Cont = Cont + 1
                PosComas(Cont) = i
            End If
        Next i
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
 
'Añadiendo el dato a la cadena [Elimina el dato anterior en esa posición]
If Cont = 0 Then
    Cadena = Dato
ElseIf Colum = 1 Then                           'Coloca el dato al principio
    Cadena = Dato & Mid(Cadena, PosComas(1))
ElseIf Colum = UBound(PosComas()) + 1 Then      'Coloca el dato al final
    Cadena = Mid(Cadena, 1, PosComas(Colum - 1)) & Dato
Else
    Pedazo1 = Mid(Cadena, 1, PosComas(Colum - 1))
    Pedazo2 = Mid(Cadena, PosComas(Colum))
    Cadena = Pedazo1 & Dato & Pedazo2
End If
 
'Escribiendo en el Bloc Notas
Open RutaArchivo For Output As #1
For i = 1 To Max
    If i = Linea Then
        Vector(i) = Cadena
        Print #1, Vector(i)
    Else
        Print #1, Vector(i)
    End If
Next i
Close #1
 
 
 
End Sub
 
 

m0skit0

Interesante discusión, chavales. Aunque os falta un poco de experiencia en programación

(es broma, no se piquen)

¿Para qué quieres poner la longitud al principio? Me parece una perdida de tiempo, aunque acepto que sea el enunciado. De todas formas, se puede quitar antes de llamar a la función.

Ay, Nilson, a ver si leemos

Cita de: "Nilson Yair"

Moskito no se donde tiene la cabeza, su funcion tiene un error es el siguiente ejemplo:

Mostrar/Ocultar Número de línea | Expandir/Contraer | Seleccionar todo

1. print convertstring("1")

Cita de: "m0skit0"

La inversa de la mía (donde la cadena lleva una coma al final):

En cuanto a F_tanori...

Cita de: "F_Tanori"

ocurrira un error sin una coma al final lo cual a mi si me parece un error

Otra tontería. Si consigues una función que haga un determinado trabajo de la forma más sencilla, me parece absurdo tirarla por la borda porque falte o deje de faltar una coma al final. Hay que subdividir los problemas hasta lo más sencillo posible y luego unirlos ¿Habéis oído hablar de Right() y Left() y concatenación?

Código: Visual Basic

 
aux = ConvertAscii("Vaya códigos")
'aux sin coma al final
aux = Left(aux, Len(aux) - 1)
[...]
a_convertir = "55,56,57,58"
'necesitamos una coma al final
aux = ConvertString(a_convertir & ",")
 
 

¡Vaya complicación, no?

F_Tanori

Cita de: "m0skit0"

En cuanto a F_tanori...

Cita de: "F_Tanori"
ocurrira un error sin una coma al final lo cual a mi si me parece un error

Otra tontería. Si consigues una función que haga un determinado trabajo de la forma más sencilla, me parece absurdo tirarla por la borda porque falte o deje de faltar una coma al final. Hay que subdividir los problemas hasta lo más sencillo posible y luego unirlos ¿Habéis oído hablar de Right() y Left() y concatenación?

Tirarla por la borda? de que hablas willy?

A que hora dije que "no servia", el fin de esto era "resolver el problema" , todos tenemos formas programacion diferente, asi como la resolucion de problemas y jamas dije que tu funcion no sirviera, pero creo que en todo el hilo tus funciones no cumplian (por eso es un error lo de la coma) con lo que tenian que hacer segun el problema planteado (que era solo un ejercicio) puedes hacer la funcion mas optimizada para sumar y decir que se ejecuta en el menor tiempo posible , pero tiene un problema cuando agregas mas de 2 numeros no suma, pero no es un error porque se puede arreglar

en fin...

y si he oido de lo que me preguntas ? tienes algun problema para comprenderlo ? ocupas alguna explicacion ?

Saludos