Tout en rapport avec internet

[aleo]

Bien le bonsoir !

Voilà, j'essaye de faire des programme sympa, ultra-léger, et surtout pratique. Serte la moitié de mes programmes ont un équivalent sur ce forum, donc il est possible d'y retrouver certaines portions de vos scripts (honte à moi).

Ce week-end, j'avais commencer a faire un programme pour gérer mon tout nouveau serveur FTP, pour y faire une sauvegarde régulière de mes fichier les plus importants. Je me suis appuyer sur le code venom du nom de "VFTP". Mais je ne le trouve pas pratique : on ne peux pas copier un répertoire entier. J'ai donc essayer, mais sans succès...
Laissons là ce problème.

Un tout autre me préoccupe cette soirée : éditer un fichier .txt sur ce même serveur FTP, et y entrer la date de ce jour.

Pour la lecture, je me suis basé sur le code proposé par Ar-S a cette adresse. Seul problème, c'est comment y changé ce qui est déjà inscrit dedans ?

J'ai chercher dans la base de données, fais le tour du fofo et je suis arrivé à ceci :

Code : Tout sélectionner

Procedure change_date ()
  CreateFile(#file,url$) ;url$ est l'adresse de serveur ftp
 remplacement$ = ReplaceString(url$, source$, date$) ; source$ est ce qui est mis au préalable dans le .txt
 MessageRequester ("date",source$)
 FileSeek(#file,0)  ; l'erreur apparait ici : le #file spécifique n'est pas initialisé
WriteString(#file,remplacement$)
CloseFile(#file)
EndProcedure

J'ai repris exactement le même code qui est donné par Ar-S, en énumérant : #file

Voilà,

Je ne demande pas le code tout fait, sinon ça serai trop facile et pas drôle, mais juste la portion de code qui me manque, dans les grosses lignes =)

[venom]

Salut aleo,

tu souhaite entrée la date dans un fichier texte sur ton ftp, ou tu veut inclure la date dans le nom du fichier texte ?








@++

[aleo]

Je souhaite rentrée la date dans fichier texte qui ce trouve sur mon serveur FTP, pour savoir de quand remonte la date de la dernière mise à jour. Voilà

[venom]

ok le mieux de tout c'est d'envoyé automatiquement le fichier txt du ftp sur l'ordi puis l’éditer et le renvoyé








@++

[Ar-S]

ok le mieux de tout c'est d'envoyé automatiquement le fichier txt du ftp sur l'ordi puis l’éditer et le renvoyé

+1
Modifier (ou au pire recréer) le txt est le plus simple, et ce sera casi instantané vu la petite taille du fichier.

[aleo]

J'y arrive pas... Après une heure de test, j'arrive toujours au même point :

Les directives pour le ftp, j'ai du mal...
J'ai essayer de delete le fichier : ne marche pas
recevoir le fichier : non plus.

Jcrois que j'aurai besoin d'aide ^^

[venom]

je part manger je regarde après si je peut






@++

[venom]

yap c'est fait avec explication et fonctionnel

Code : Tout sélectionner

InitNetwork()

DateEtHeure$ = FormatDate("%dd:%mm:%yyyy   %hh:%ii:%ss", Date()) ; permet d'ecrit la date puis l'heure

If OpenFTP(0, "serveur", "hote", "mdp") ; ont ouvre le serveur
  If ExamineFTPDirectory(0) ; ont examine tous les fichiers du serveur ftp
    While NextFTPDirectoryEntry(0) ; passe au fichier suivant etc...
    Wend ; jusqu'au dernier fichier
  EndIf
  
  res = ReceiveFTPFile(0, "test aleo.txt", "C:\test aleo.txt", 0) ; la ont envoie le fichier qui nous interesse dans le C:
  
  If res = 1
    MessageRequester("info", "fichier bien trouver, puis bien telecharger", 0) ; message qui previen que c'est bien telecharger
    MessageRequester("info", "maintenant je vais l'editer puis le ré envoyer", 0) ; message qui informe que le fichier va etre edité
    
    If OpenFile(0, "C:\test aleo.txt") ; Ouvre un fichier existant ou en crée un nouveau s'il n'existait pas
      FileSeek(0, Lof(0)) ; Place le pointeur à la fin du fichier en utilisant le résultat de Lof()
      WriteStringN(0, Chr(10) + Chr(10) + DateEtHeure$) ; ont edit le fichier, les 2 chr(10) sont fait pour passé 2 ligne dans le fichier texte
      CloseFile(0) ; ont ferme le fichier texte avand l'envoie sur le serveur
      SendFTPFile(0, "C:\test aleo.txt", "test aleo.txt", 0) ; ont renvoie le fichier edité tout frais sur le serveur ;)
      MessageRequester("info", "fichier ré editer puis envoyé avec succée", 0)
    EndIf
    
  Else
    MessageRequester("info", "fichier non trouver, donc non telecharger", 0) ; si le fichier n'a pas etais telecharger ont arrive directement ici
  EndIf
Else
  MessageRequester("info", "Can't connect to ftp", 0) ; si nous arrivons meme pas a nous connecter, nous arrivons directement ici
EndIf

@++

[aleo]

Merci !

Je test ça tout de suite.

En tout cas, le code est très bien expliqué. Je commence a comprendre pour quoi je n'y arrivais pas. Apparemment, il faut "scanner" tout les fichier présent dans le serveur FTP...

Je me penche dessus dès que j'ai fini ce que je fais.

Merci encore

[venom]

oui il faut scanner

ok tu me dit quoi




@++

[aleo]

C'est parfait, ça marche =)

Je vais pouvoir faire mumuse avec ça lol

Si j'ai bien compris : pour envoyer un répertoire entier, il faut le scanner, puis envoyer fichier par fichier dans le serveur ftp ?


Merci

[venom]

oui sauf si tu envoie un dossier mais qui est zipper c'est beaucoup plus facile a transféré ainsi







@++

[aleo]

C'est sûr ^^

J'y ai pensé, mais je voulais savoir bien utiliser les commandes ftp pour pouvoir faire un updater.
Ceci pourrai beaucoup me servir, pour la sauvegarde de mes fichier important, et pour l'échange de données avec mes amis. Mais maintenant, que je commence à comprendre le pourquoi du comment, tout va bien ^^

Je vous tiens au courant. J'aurai surement besoin d'aide, mais je me prononcerai que lorsque je toucherai le fond, et que je tomberai en dépression à cause de mon échec

[venom]

ok sa marche a bientôt peut être






@++