Mensajes

Hola a todos, quisiera apoyo con este codigo. Soy principiante en programacion y trato de entender.

La fin de este código es que tiene que ejecutar un programa (runpkr) a través de un comando por consola en todos los archivos que esten ubicados en la carpeta.

ejem:

DIRECTORIO
  - archivo1.t01
  - archivo2.t01

comando a ejecutar por consola en cada archivo:  runpkr00 -d archivo1.t01

Código (vb) [Seleccionar] Expandir

Dim midirectorio As String = TextBox1.Text
       If midirectorio = "" Then
           MessageBox.Show("Debe seleccionar la ruta donde se encuentra la data", "Error", MessageBoxButtons.OKCancel, MessageBoxIcon.Error)
       Else

           Try

               My.Computer.FileSystem.CopyFile(
                "C:\Program Files\convert data\runpkr00.exe",
                midirectorio & "\runpkr00.exe",
               Microsoft.VisualBasic.FileIO.UIOption.AllDialogs,
                Microsoft.VisualBasic.FileIO.UICancelOption.DoNothing)
           Catch ex As Exception
               MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)

           End Try
           If My.Computer.FileSystem.FileExists(midirectorio & "\runpkr00.exe") Then
               For Each Archivo As String In My.Computer.FileSystem.GetFiles(midirectorio, FileIO.SearchOption.SearchAllSubDirectories, "*.t01")
                   Console.WriteLine("runpkr00.exe -d" & Archivo)
               Next
           End If

       End If

Se que algo esta mal. Quisiera su apoyo.


Gracias. =)

[1773]

Si por ejemplo tenemos este Array:

Código [Seleccionar] Expandir

{ 1773, 1774, 1775 }

El primer elemento (índice 0) es 1773, el segundo elemento (índice 1) es 1774, y el tercer elemento (índice 2) es 1775 , supongo que esto está más que claro, pero por si acaso lo comento igual.

En esta instrucción
Con el método Mid(File.name, 5, 3) hago un Substring a la cadena de texto y obtengo el String 001 (o 002, o 003, etc... según el nombre del archivo)

Después, con el método Cint(001) indico que el 001 se debe tratar como un valor numérico (Int32), esto le quita los ceros de la izquierda quedando un 1

Y por último con Values(1) llamo al índice 1 del Array, que es el valor 1773

El índice del Array del código está adaptado para que coincida de forma exacta con el String que obtienes al usar la función Mid, por eso el primer elemento del Array es Null.

Saludos

Eres lo máximo explicando. Te entendí muy bien.

Muchas Gracias por todo.

Hasta pronto.

=)

Creo que la otra vez que preguntaste esto no te entendí muy bien, pero ahora parece estar bastante más claro, a ver si esta vez he acertado... :

Código (vb) [Seleccionar] Expandir

Values = Array(Null, _
               1773, 1773, 1773, 1773, _
               1774, 1774, 1774, 1774, 1774, 1774, 1774, _
               1775, 1775, 1775, 1775, 1775, 1775, 1775, _
               "etc...")


Set FSO   = CreateObject("Scripting.FileSystemObject")
Set Files = FSO.GetFolder(".\").Files

For Each File in Files

    If LCase(FSO.GetExtensionName(File)) = LCase("T01") Then
        Wscript.Echo "File:  " & File.name & _
                     VBNewLine & _
                     "Value: " & Values(Cint(Mid(File.name, 5, 3)))
    End If

Next

Wscript.Quit(0)

Saludos

Eres lo máximo =). Muchas gracias por ayudarme.
Lo que me gustaría entender es como el array puede relacionar con el numero del archivo.

Bendiciones Eleкtro =)

Buenas tardes,

Necesito realizar un procedimiento donde sucede lo siguiente:

- Tengo una carpeta con varios archivos donde los nombres son similares, sólo cambian los dígitos (ABCD001aA.T01, ABCD002aA.T01, CDEF003aA.T01, CDEF004aA.T01,...)
- Capturar en una variable los 3 dígitos del archivo (001, 002, 003,..) para que luego se relacione con el numero de 4 dígitos correspondientes (ejem: si es 003 imprimir 1773)

RELACION:
001   1773
002   1773
003   1773
004   1773
005   1774
006   1774
007   1774
008   1774
009   1774
010   1774
011   1774
012   1775
013   1775
014   1775
015   1775
016   1775
017   1775
018   1775
019   1776
.
.
364   1825
365   1825


Espero su pronta ayuda.


Gracias.

relacionado a...?, ¿de que tipo de codificación estás hablando exactamente?

No entiendo el patrón, ¿Que son y de donde salen los valores de la derecha?.

se más preciso porfavor.

saludos

Lamento no haber explicado mejor pero aquí voy.

Quiero generar un código donde realice solo con los archivos de una determinada extensión (*.zxc) la captura de los 3 dígitos del nombre de archivo (002), lo guarde en una variable y busque en el array de datos el numero de 4 dígitos correspondiente para luego imprimirlo.

ejemplo:

Directorio con varios archivos similares donde solo cambia los 3 números.
 ABCD002ab.zxc (todos los archivos tienen la misma cantidad de dígitos)
 ABCD010ab.zxc
 ABCD065ab.zxc
  ... etc

arreglo:
         002 = 1773
         003 = 1773
         004 = 1773
         005 = 1774
         006 = 1774
         007 = 1774
         ...
         0061= 1792
         0062= 1792
         0063= 1792
         ...etc


Espero haberme hecho entender mejor.

PD. El código seria en vbscript

Hola, lamento no haber explicado mejor pero aquí voy.

Quiero generar un código donde realice solo con los archivos de una determinada extensión (*.zxc) la captura de los 3 dígitos del nombre de archivo (002), lo guarde en una variable y busque en el array de datos el numero de 4 dígitos correspondiente para luego imprimirlo.

ejemplo:

Directorio con varios archivos similares donde solo cambia los 3 números.
  ABCD002ab.zxc (todos los archivos tienen la misma cantidad de dígitos)
  ABCD010ab.zxc
  ABCD065ab.zxc
   ... etc

arreglo:
          002 = 1773
          003 = 1773
          004 = 1773
          005 = 1774
          006 = 1774
          007 = 1774
          ...
          0061= 1792
          0062= 1792
          0063= 1792
          ...etc


Espero haberme hecho entender mejor.

PD. El código seria en vbscript

Buen día,
Tengo una PC con una tarjeta de video integrada y otra dedicada, lo que pasa es que al momento de querer utilizar las dos tarjetas como resultado tengo que con una si se ve la imagen y la otra no. Antes si podía utilizarlo pero después de formatear la Pc ya no (SO W8 a W7).


Espero su ayuda.

Muchas gracias de antemano.


--
Rossmery Chacon.

Elektro, estoy agradecida por el apoyo que me brindas. Trato de entender el código que me acabas de alcanzar pero creo que en la parte de Weeks(DatePart("ww", Now())) es relacionado con las semanas del año del calendario fijo internacional que es de lunes a domingo (http://www.calendario-365.es/calendario-2014.html) y en el calendario gps es de domingo a sábado.

Como resultado que obtuve al ejecutar el script fue lo siguiente:
1. realiza el procedimiento con todos los archivos en la carpeta raiz y no hace lo mismo con los sub directorios, pero solo tendría que convertir los archivos *.dat
2. al momento de capturar el archivo lo hace con toda su ruta pero para que funcione el teqc solo es indicando el nombre del archivo.

teqc +nav nombrearchi0.14n -week semanagps -tr d nombrearchivo.dat> nombrearchi0.14o

Nuevamente gracias

¿Pero la semana la introducs tu manuálmente?

Por el momento sería así, manualmente, pero lo ideal sería de forma automática. Se que ahora no voy a poder generar ese código para que me salga de forma automática pero por ahora esta bien de manera manual =)

Gracias por todo elektro.

Código (dos) [Seleccionar] Expandir

Start /W "runpkr" "runpkr00.exe" -d "%%~#"

Saludos.

Muchas Gracias Eleкtro =) Me ayudaste muchísimo, lo que me queda como interrogante es el start /w.

Ahora tengo otro caso. Después de ejecutar el programa runpkr ahora tengo que ejecutar otro programa que es el teqc con el siguiente código:
teqc +nav nombrearchivo0.14n -week semanagps -tr d nombrearchivo.dat> nombrearchivo0.14o

nota:
* en semanagps se tendría que insertar la semana que seria ejem: 1783 (http://gps.topografia.upm.es/www/calactal.htm).
* el nombrearchivo tendria que modificar. ejem: CCCCDDDaA.t01 --> CCCCDDD0.t01 (cambiar los dos ultimos digitos por 0)

Lo que pasa es que lo estoy haciendo por partes para no aturdirme