Como partir, modificar una variable.

[XYON126]

Hola !

Buenos dias!

Sabria alguien indicarme como puedo hacer para modificar parte de una variable, me explico, necesito modificar, eliminar la extension de un archivo para renombrar un nuevo archivo de extensión diferente con el mismo nombre, el problema es que se que con el "&" puedo añadir a una variable del tipo String mas texto ejemplo "pepito" & "juanito" y obtendria "pepitojuanito" el problema es que no creo que funcione lo contrario "pepitojuanito" - "juanito" y la solución fuese "pepito" . ¿Como podria hacerlo existe alguna sentencia o metodo? lo necesito en VB 6.0 y en VBScript.
Alguien podria ayudarme. . .


Muchas gracias por adelantado.

[pkj]

Para eso existen los comandos Len, Mid, Left y Right. Creo que deberías estudiar algún manual básico.

Fichero="C:\micarpeta\pepito.txt"
NuevoNombre=Left$(Fichero, Len(Fichero)-3) & "doc"
MsgBox NuevoNombre 'devuelve C:\micarpeta\pepito.doc

Si no conoces la longitud de la extension del fichero la cosa se complica un poco más.

Saludos

[erbuson]

Como esta es una necesidad que me sucede muy a menudo, utilizo esta función que te devuelve el nombre del fichero sin su extensión, independientemente de la longitud de los caracteres.

Código:

Public Function SinExtension(Fichero As String) As String
  Dim Punto As Integer
  Punto = InStrRev(Fichero, ".")
  If Punto > 0 Then
    SinExtension = Left$(Fichero, Punto - 1)
  Else
    SinExtension = Fichero
  End If
End Function

Asi puedes por ejemplo hacer lo siguiente:

NuevoFichero = SinExtension(AntiguoFichero) & ".txt"

[pkj]

Fíjate que yo suelo usar la función contraria:

Código vb:

Function MiraExtension(ByVal Fichero As String) As String
  If InStrRev(Fichero, ".") Then
    MiraExtension = UCase$(Right$(Fichero, Len(Fichero) - InStrRev(Fichero, ".")))
  End If
End Function
 

y el caso es que por no pararme a hacer una como la tuya suelo hacer algo como:

Fichero2=Left$(Fichero1,len(Fichero1)-Len(MiraExtension(Fichero1))) & "xxx"

y no creas que lo he hecho solo una vez...

Aprovecharé la ocasión y me guardaré tu función. (y me ha salido un pareado)

Saludos

PD: Por cierto, la variable Punto debería ser un Long.

[erbuson]

Hola de nuevo PKJ, me puedes aclarar porque Long nunca se me hubiera pasado por la cabeza que un Path de archivo pudiera tener mas de 32.767 caracteres

[pkj]

Pues tienes razón, estimado compañero Erbuson. Debe ser ya la costumbre de esperar siempre lo más difícil, y como InStrRev devuelve un Long...

Saludos.

[XYON126]

Iniciado por pkj

Para eso existen los comandos Len, Mid, Left y Right. Creo que deberías estudiar algún manual básico.

Fichero="C:\micarpeta\pepito.txt"
NuevoNombre=Left$(Fichero, Len(Fichero)-3) & "doc"
MsgBox NuevoNombre 'devuelve C:\micarpeta\pepito.doc

Si no conoces la longitud de la extension del fichero la cosa se complica un poco más.

Saludos

Gracias pkj!

La verdad es que esos comandos que comentas los he visto en muchos macros pero por desgracia en todos los manuales que tengo (Creo ya lo dije, soy muy novato) no tengo referencia de ellos, tendre que buscar en la ayuda del VBasic aunque probare tu secuencia.
Muchas gracias sin compas como vosotros los que nos iniciamos nos undiriamos en un plis plas.

Un saludote