PureBasic

Denis a écrit :Sinon, on fait comment pour charger ton fichier, j'arrive sur une page mais je ne vois pas ou c'est, c'est plus une page d'inscription qu'autre chose.

Denis

il faut pas faire premium download mais l'autre... mais bon domage, en tant que non-voyant je ne peux pas recopier le code dans l'image... encore un site qui oblige à ouvrire les yeux pour des "raisons de sécurité".

Sa ce n'est qu'un premier programme... sur le prochain vous allez voir les progrès que je fais

si tu veut j'avais fait sa pour crypter ou décrypter du texte y'a une epoque

Code : Tout sélectionner

;- Window Constants
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
Enumeration
  #Button_0
  #Button_1
  #String_0
EndEnumeration

;{ procedure ouvrir
Procedure StreamFileIn_Callback(hFile, pbBuff, cb, pcb)
  ProcedureReturn ReadFile_(hFile, pbBuff, cb, pcb, 0) ! 1
EndProcedure

Procedure FileStreamIn(FileID.l, file.s, Gadget.l, Mode.l)
  Protected StreamData.EDITSTREAM
  
  If Mode <> #SF_RTF : Mode = #SF_TEXT : EndIf
  
  If ReadFile(FileID, file)
    StreamData\dwCookie = FileID(FileID)
    StreamData\dwError = #Null
    StreamData\pfnCallback = @StreamFileIn_Callback()
    SendMessage_(GadgetID(Gadget), #EM_STREAMIN, Mode, @StreamData)
    CloseFile(FileID)
    NomFichier$ = GetFilePart(file)
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure
;}

;{ procedure sauvegarder
Procedure StreamFileOut_Callback(hFile, pbBuff, cb, pcb)
  ProcedureReturn WriteFile_(hFile, pbBuff, cb, pcb, 0) ! 1
EndProcedure

Procedure FileStreamOut(FileID.l, file.s, Gadget.l, Mode.l)
  Protected StreamData.EDITSTREAM
  
  If Mode <> #SF_RTF : Mode = #SF_TEXT : EndIf
  
  If CreateFile(FileID, file)
    StreamData\dwCookie = FileID(FileID)
    StreamData\dwError = #Null
    StreamData\pfnCallback = @StreamFileOut_Callback()
    SendMessage_(GadgetID(Gadget), #EM_STREAMOUT, Mode, @StreamData)
    CloseFile(FileID)
  EndIf
EndProcedure
;}

  If OpenWindow(#Window_0, 0, 0, 130, 50, "TxtCrypter",  #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered )
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 0, 0, 130, 25, "Crypter un fichier texte")
      ButtonGadget(#Button_1, 0, 25, 130, 25, "Dérypter un fichier texte")
      EditorGadget(#String_0, 0, 0, 0, 0)
      
    EndIf
  EndIf

  Repeat
   EventID = WaitWindowEvent()
    If EventID = #PB_Event_Gadget 
      Select EventGadget()
      
       Case #Button_0
        Fichier$ = OpenFileRequester("ouvrir un fichier texte a crypter", "", "Fichier Texte|*.txt", 0)
         FileStreamIn(0, Fichier$, #String_0, #SF_TEXT)
          Texte$ = GetGadgetText(#String_0)
        Valeur$ = ""
        For i = 1 To Len(Texte$)
          Valeur$ = Valeur$ + Str(Asc(Mid(Texte$, i, 1))) +" "
        Next
        SetGadgetText(#String_0, Valeur$)
        FileStreamOut(0, Fichier$ + "", #String_0, #SF_TEXT)
        MessageRequester("information", "cryptage réussi avec succées.", 0)

       Case #Button_1
        Fichier$ = OpenFileRequester("ouvrir un fichier texte a crypter", "", "Fichier Texte|*.txt", 0)
         FileStreamIn(0, Fichier$, #String_0, #SF_TEXT)
          Texte$ = GetGadgetText(#String_0)
        Valeur$ = ""
        For i = 1 To Len(texte$)
          Resultat$ = StringField(texte$, i, " ")
          Valeur$ = Valeur$ + Chr(Val(Resultat$))
        Next i
        SetGadgetText(#String_0, Valeur$)
        FileStreamOut(0, Fichier$ + "", #String_0, #SF_TEXT)
       MessageRequester("information", "décryptage réussi avec succées.", 0)

      EndSelect
    EndIf
  Until EventID = #PB_Event_CloseWindow

@++

Merci sa peut être utile

Le Soldat Inconnu a écrit :Attention, ajouter le .btf en fin de fichier, oui, et non, cela dépend

il faut tester si l'extension est déjà présente ou non
Code : Tout sélectionner
Fichier.s = ....
If lcase(getextensionpart(fichier)) <> "btf" ; Si le fichier n'a pas la bonne extension, on l'ajoute
  fichier + ".btf"
endif

if isfilename(getfilepart(fichier))
  ; ici on sauvegarde
else
  ; ici, on dit que le nom de fichier est pas bon, du style on a mis des * ou / dedans
endif
j'espère pas avoir fait de faute, j'ai codé ca sans tester

J'allais le dire

Merci Nerco pour ton code, je vais l'essayer aujourd'hui si j'ai le temps.
Alors c'est pas super cette sensation de création que nous procure PB quand on compile sont petit soft !

Necro a écrit :Merci sa peut être utile

j'ai vu que tu faisais une erreur avec cette écriture a tout tes posts !!

la règle :

lorsque tu peut remplacer ton "sa" par "CELA" , alors il faut écrire
"ça" et non pas "Sa"

on écrit "Sa" lorsqu'on peut remplacer par "La sienne a Lui"

exemple : "Sa chemise (la sienne a lui)"

voila c'était une petite aparté , il y a des fautes qui me choquent plus que d'autres

(tu vois mon "c'etait" on peut remplacer par "cela etait "!! )
donc encore un "C" et non pas un "S"

résumons :

C ou ç lorsqu'on peut remplacer par "Cela"

S lorsqu'on peut remplacer par "Le sien, la Sienne"

Merci xD ça peux m'être utile x)

yep merci aussi dobro

@++

On ne vous a jamais appris ça au collège ? encore une bande de petits amateurs d'école buissonnière ouai !:P

Tiens Dobro de la part d'un vieux collègue.

Ar-S a écrit :On ne vous a jamais appris ça au collège ? encore une bande de petits amateurs d'école buissonnière ouai !:P

Tiens Dobro de la part d'un vieux collègue.

DROBRO ???

Bonjour,

Serait-il possible de mettre aussi un lien MyFTP (comme pour l'updater) ?

Promis je le teste aujourd'hui

.

c'était pour être sûr que tu ais l'œil

Ar-S a écrit : c'était pour être sûr que tu ais l'œil

même que j'en ai 2 !!

Désolé gangsta je n'avais pas vu ton message je te l'héberge sur myftp sur le champs.

PureBasic

Basic Text Editor V 0.1