IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Lua Discussion :

Inversion de signe dans une chaîne


Sujet :

Lua

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Webmaster
    Inscrit en
    Septembre 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Webmaster

    Informations forums :
    Inscription : Septembre 2015
    Messages : 2
    Points : 1
    Points
    1
    Par défaut Inversion de signe dans une chaîne
    Bonjour,
    je débute dans LUA.
    j'utilise un script LUA qui me permet de mettre en forme un fichier qui est créé par un programme.
    le script est le suivant :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    local f = nil;
    while (true) do
    	f = io.open(event.method.File, 'r');
    	if (not (f == nil)) then break;
    	end
    	end
    local fname = string.gsub(event.method.File, '.x', '');
    local fout = io.open(fname .. '_aw' .. '.x', 'w');
    local lines = nil;
    local lines = f:lines();
     
    for l in lines do
    	temp = string.gsub(l, '\t', '');
    	temp = string.gsub(temp, ' ', '');
    	if (string.len(temp) > 0) then
    		l = string.gsub(l, ';;,', ';;');
    		l = string.gsub(l, ';;;', ';;');
    	    fout:write(l, '\n');
    	end
    	end
     
    f:close();
    fout:close();
    ce qui me donne un fichier lisible en et qui est sous cette forme :

    AnimationKey {
    0;
    4;
    0;4;0.984808,-0.173648,-0.000000,0.000000;;
    9;4;0.997619,0.032085,-0.001962,0.061017;;
    19;4;0.965926,0.258819,-0.000000,0.000000;;
    39;4;0.984808,-0.173648,-0.000000,0.000000;;
    etc ...
    Or je cherche un truc pour me permettre d'inverser le signe du quatrième chiffre de chaque ligne
    ex: -0.173648 doit devenir positif, 0.032085 devenir négatif, 0.258819 négatif et -0.173648 positif.

    vu que je ne suis pas un spécialiste des chaines de caractères sur LUA (en macro VB, ça va beaucoup mieux)
    je vous demande de l'aide
    Merci à vous

  2. #2
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 072
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 072
    Points : 15 462
    Points
    15 462
    Billets dans le blog
    9
    Par défaut
    Bonjour !

    On pourrait faire, par exemple, quelque chose comme ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
     
    local file = io.open("sample.txt")
     
    for line in file:lines() do
      local i, j = string.find(line, ",%-?%d%.%d%d%d%d%d%d,")
      if i then
        --print(line)
     
        local nombre = string.sub(line, i + 1, j - 1)
     
        if string.sub(nombre, 1, 1) == "-" then
          nombre = string.sub(nombre, 2)
        else
          nombre = "-" .. nombre
        end
     
        line = string.sub(line, 1, i) .. nombre .. string.sub(line, j)
     
        print(line)
      end
    end
     
    file:close()
    Dans le fichier "sample.txt", j'ai mis l'extrait de fichier que tu as montré.

    Et voici le résultat :

    0;4;0.984808,0.173648,-0.000000,0.000000;;
    9;4;0.997619,-0.032085,-0.001962,0.061017;;
    19;4;0.965926,-0.258819,-0.000000,0.000000;;
    39;4;0.984808,0.173648,-0.000000,0.000000;;
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

  3. #3
    Nouveau Candidat au Club
    Homme Profil pro
    Webmaster
    Inscrit en
    Septembre 2015
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Meurthe et Moselle (Lorraine)

    Informations professionnelles :
    Activité : Webmaster

    Informations forums :
    Inscription : Septembre 2015
    Messages : 2
    Points : 1
    Points
    1
    Par défaut
    Super ...
    ça marche bien
    il m'a juste fallu un peu de temps pour comprendre comment ça fonctionne et l'intégrer dans le script existant

    merci Roland

  4. #4
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    Décembre 2011
    Messages
    4 072
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Décembre 2011
    Messages : 4 072
    Points : 15 462
    Points
    15 462
    Billets dans le blog
    9
    Par défaut
    Citation Envoyé par Horsy Voir le message
    il m'a juste fallu un peu de temps pour comprendre comment ça fonctionne et l'intégrer dans le script existant
    Oui, j'aurais dû mettre quelques commentaires. La prochaine fois, c'est promis.

    Citation Envoyé par Horsy Voir le message
    merci Roland
    Pas de quoi. Bienvenue dans le forum Lua !
    Mon site personnel consacré à MSEide+MSEgui : msegui.net

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. inversion des noeuds dans une liste chainée
    Par mrism000 dans le forum C
    Réponses: 1
    Dernier message: 20/05/2012, 15h35
  2. Entre dans une chaine de caractere ce signe : "
    Par Invité dans le forum VB.NET
    Réponses: 6
    Dernier message: 02/12/2011, 18h11
  3. Réponses: 23
    Dernier message: 16/11/2002, 19h41
  4. [TP]lire une ligne de l'ecran et la stocker dans une chaine
    Par Bleuarff dans le forum Turbo Pascal
    Réponses: 26
    Dernier message: 02/07/2002, 10h08
  5. Réponses: 3
    Dernier message: 12/06/2002, 21h15

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo