Search  
Tuesday, September 17, 2019 ..:: Forum ::.. Register  Login
 Forum Minimize
Pentru a putea posta mesaje trebuie să vă înregistraţi.
Notă: Mesajele cu conţinut jignitor sau ilegal (inclusiv cereri de soft piratat) nu sunt acceptate şi vor fi şterse imediat .

Pentru a primi raspunsuri rapide si corecte, scrieti in mesaj ce intentionati sa faceti, ce mesaj de eroare primiti, in ce context si in urma caror actiuni. De asemenea, mentionati versiunea de FoxPro in care lucrati!
Dacă nu specificați versiunea, se consideră VFP 9.0 SP2.

SearchForum Home
  FoxPro  FoxPro 2.x DOS  Intrebare...
 Intrebare
 
 2/24/2010 2:20:56 PM
User is offlineLaurel
2 posts


Intrebare
 (N/A)
Am un director unde se afla mai multe fisiere tif de genul: 1.PROMUZIC_ANDRE_2010-a00000019jA-21115-004.tif 2.PROMUZIC_ANDRE_2010-a00000019ja-21115-030.tif 3.PROMUZIC_ANDRE_2010-a00000019jb-21115-040.tif 4.PROMUZIC_ANDRE_2010-a00000019jB-21115-041.tif As dori sa le rescriu in asa fel incat denumirile sa fie(substr,numefisier,21,11): 1.a00000019jA.tif 2.a00000019ja.tif 3.a00000019jb.tif 4.a00000019jB.tif Am incercat ca adir: SET DEFAULT TO c:\test STORE ADIR(afisiere,"*.tif") TO n FOR i=1 TO n STORE "rename "+afisiere(i,1)+" "+SUBSTR(afisiere(i,1),39,11)+'.tif' TO y !&y ENDFOR dar mi le scrie pe taote mari si nu am facut nimic pentru ca exista denumiri asemanatoare si le rescrie.
 2/24/2010 7:55:07 PM
User is offlineGigi
38 posts


Re: Intrebare
 (N/A)
Este si normal sa le rescrie deoarece atat DOS-ul cat si Windows-ul nu tine cont de litera mare sau mica la denumirea de fisiere/directoare. Bucata care o extragi tu din numele acelor fisiere nu este unica din acest punct de vedere. Eventual incearca un alt sablon de redenumire si deosebire a fisierelor pentru a nu-ti mai rezulta dubluri.
 2/13/2013 10:23:32 AM
User is offlineanonymous
0 posts


Re: Intrebare
 (N/A)
buna ziua am si eu o intrebare am o parola de genul acesta
KEY [ 1] = 078   
KEY [ 2] = 105   
KEY [ 3] = 114   
KEY 4] =   116   
KEY[ 5] = 115   
am caut caracterele in cod ascii si am gasit urmatoarele   N I R T S


ASTA SA FIE PAROLA ?


multumesc
 2/13/2013 12:20:06 PM
User is offlineGrigore Dolghin
3995 posts
www.class-software.ro
1st






Re: Intrebare
 (N/A)
Intrebarea asta... zau, imi sta pe limba un raspuns usturator dar o sa ma abtin. De unde naiba ar putea sti ALTCINEVA daca aia e o parola si de unde??? tu ai softul, tu ai parola, ti-e greu sa incerci? vrei sa vin eu la tine la birou sa tastez eu sirul ala de caractere?


(repet, aveam un raspuns si mai si...)

Grigore Dolghin
Visual FoxPro MVP 2006 - 2010
Class Software
My blog
 2/14/2013 7:54:46 AM
User is offlineanonymous
0 posts


Re: Intrebare
 (N/A)
ar fi bn daca ar fi parola doar din caracterele astea.problema este k in fisierul meu ,prj e ceva ce nu inteleg prea bn,iti trm alaturi ca poate asa m-a poti lamurii si pe mine,oricum repet sunt nou in programare:(

PROCEDURE well
DIMENSION pasy[ 3, 40], numi[ 3, 5]
p1 = 1019334518
p2 = 1711174605
p3 = 821181341
p4 = 3447151209
p5 = 2303010717
p6 = 1326374311
p7 = 701081625
p8 = 1313273748
pont = STR(p1, 10) + STR(p2, 10) + STR(p3, 10) + STR(p4, 10) + STR(p5, 10) + STR(p6, 10) +  ;
       STR(p7, 10) + STR(p8, 10)
i = 1
DO WHILE i<41
     STORE 0 TO pasy[ 1, i], pasy[ 2, i], pasy[ 3, i]
     i = i + 1
ENDDO

si inca ceva


PROCEDURE well
CLEAR
DIMENSION pasy[ 3, 40], pparol[ 5], numi[ 3, 5]
i = 1
DO WHILE i<41
     pasy[ 1, i] = 0
     pasy[ 2, i] = 0
     pasy[ 3, i] = 0
     i = i + 1
ENDDO
p1 = 1019334518
p2 = 1711174605
p3 = 821181341
p4 = 3447151209
p5 = 2303010717
p6 = 1326374311
p7 = 701081625
p8 = 1313273748
pont = STR(p1, 10) + STR(p2, 10) + STR(p3, 10) + STR(p4, 10) + STR(p5, 10) + STR(p6, 10) +  ;
       STR(p7, 10) + STR(p8, 10)
STORE 0 TO i, j, k, l, m
parol = SPACE(5)
num = SPACE(40)
pparol[ 1] = 078
pparol[ 2] = 105
pparol[ 3] = 114
pparol[ 4] = 111
pparol[ 5] = 115

apoi parare o freastra sa introduc parola ....

READ
DEACTIVATE WINDOW parl
RELEASE WINDOW parl
i = 1
DO WHILE i<6
     IF pparol(i) = ASC(SUBSTR(parol, i, 1))
          j = j + 1
     ENDIF
     i = i + 1
ENDDO
IF j <> 5
     @ 10,15 SAY "gresit" COLOR &c01
     SET CONSOLE OFF
     WAIT
     SET CONSOLE ON
     QUIT

cam asa apar :sintaxă şi comenzi
 6/5/2013 5:01:41 PM
User is offlineanonymous
0 posts


Re: Intrebare
 (N/A)



 6/5/2013 5:03:28 PM
User is offlineanonymous
0 posts


Re: Intrebare
 (N/A)


 6/5/2013 5:04:35 PM
User is offlineanonymous
0 posts


Re: Intrebare
 (N/A)
am rezolvat:)
  FoxPro  FoxPro 2.x DOS  Intrebare...

Search  Forum Home         

 Google Ads Minimize

    

Copyright 2002-2013 Profox   Terms Of Use  Privacy Statement