1. Ce site utilise des cookies. En continuant à utiliser ce site, vous acceptez l'utilisation des cookies. En savoir plus.
  2. Bonjour tout le monde ! Veillez consulter la Politique de forum pour comprendre nos règles, Merci a vous !
    Rejeter la notice
Cookies Politique du forum

AIDE Code condensé et encapsulages divers

Discussion dans 'Sujets Divers' créé par informagicien, Jan 24, 2019.

Tags:
?

Vous en voulez d'autres bouts de codes ? il suffit de me dire si vous aimez

  1. Oui : J'aime et je clique j'aime

    8 vote(s)
    100.0%

  2. Non : Désolé je n'en referai plus

    0 vote(s)
    0.0%
  1. informagicien

    informagicien New Member

    Inscrit:
    Mai 22, 2018
    Messages:
    12
    J'aime reçus:
    16
    :)
    le but est de sauver le contenu d'une table vers un fichier texte....

    // sauver le contenu d'une table: méthode 1
    sText est une chaîne
    sText = TableVersTexte(TABLE_MaTable, taSansTitre, ";")
    //Info(sText) // pour vérif
    bRésultat est un booléen
    sCheminNomFichier est une chaîne
    sCheminNomFichier = SysRep(srBureau) + "\" + DateHeureSys() + "MaTable.txt"
    bRésultat = fSauveTexte(sCheminNomFichier, sText)
    //Info(bRésultat) // pour vérif
    SI bRésultat = Vrai ALORS
    Info("le fichier est bien crée : " + sCheminNomFichier)
    SINON
    Erreur(ErreurInfo(errComplet))
    FIN


    // sauver le contenu d'une table : méthode 2 : 1 seule ligne de code
    si pas fSauveTexte(sysrep(srBureau)+"\"+DateheureSys()(+" MaTable.txt",TableVersTexte(TABLE_MaTable, taSansTitre, ";")) alors Erreur(ErreurInfo(errComplet))
     
    #1 informagicien, Jan 24, 2019
    Dernière édition par un modérateur: Jan 25, 2019
    Tags:
    MayBst, michel, suenodesign et 1 autre personne aiment ça.
  2. popoy

    popoy Well-Known Member
    MEMBRE WX

    Inscrit:
    Fev 23, 2018
    Messages:
    2,884
    J'aime reçus:
    1,533
    Hum, En 24 , ça fonctionne pas

    Bonjour visiteur, Merci de vous Inscrire ou de vous connectez pour voir les liens!


    En plus ça fonctionne pas en WM.
    Le mieux c'est le vieux exemple wd5rtf qui transfert une table vers HTML.
     
    #2 popoy, Jan 24, 2019
  3. informagicien

    informagicien New Member

    Inscrit:
    Mai 22, 2018
    Messages:
    12
    J'aime reçus:
    16
    Bonjour popoy table vers texte fonctionne en wd 24 mais
    autant pour moi une erreur de copier collé et voilà le bon code : une ( en trop

    // // sauver le contenu d'une table: méthode 1
    //sText est une chaîne
    //sText = TableVersTexte(TABLE_MaTable, taSansTitre, ";")
    //Info(sText)
    //bRésultat est un booléen
    //sCheminNomFichier est une chaîne
    //sCheminNomFichier = SysRep(srBureau) + "\" + DateHeureSys() + "MaTable.txt"
    //bRésultat = fSauveTexte(sCheminNomFichier, sText)
    //Info(bRésultat)
    //SI bRésultat = Vrai ALORS
    // Info("le fichier est bien crée : " + sCheminNomFichier)
    //SINON
    // Erreur(ErreurInfo(errComplet))
    //FIN

    // sauver le contenu d'une table: méthode 2
    SI PAS fSauveTexte(SysRep(srBureau)+"\"+DateHeureSys()+" MaTable.txt",TableVersTexte(TABLE_MaTable, taSansTitre, ";")) ALORS Erreur(ErreurInfo(errComplet))
     
    #3 informagicien, Jan 25, 2019
(Vous devez vous identifier ou vous inscrire pour poster ici.)

Partager cette page

Chargement...