FONCTION MIRROIR POUR TEXTE
EvildarkEurope
Messages postés
51
Date d'inscription
dimanche 11 décembre 2005
Statut
Membre
Dernière intervention
11 octobre 2014
-
24 nov. 2006 à 15:47
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 24 nov. 2006 à 19:14
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 24 nov. 2006 à 19:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/40451-fonction-mirroir-pour-texte
https://codes-sources.commentcamarche.net/source/40451-fonction-mirroir-pour-texte
24 nov. 2006 à 19:14
et en effet, StrReverse ne tient pas compte de Chr$(13) et Chr$(10).
je te laisse ajouter ton snippet ici si tu veux :
http://www.codyx.org/snippet_inverser-chaine-caracteres_10.aspx (même user/pass que sur CS normalement)
côté perf, çà sera toujours un peu plus long mais utile pour le coup puisque StrReverse a cette lacune
et pour le code en lui-même, une autre possibilité (pas forcément meilleure):
Private Sub Command1_Click()
Dim aString$(), i%
aString = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(aString)
aString(i) = StrReverse(aString(i))
Next i
Text2.Text = Join(aString, vbCrLf)
End Sub
++
24 nov. 2006 à 18:48
car leur de l'utilisation de Text2.Text = StrRevers(Text1.Text)
il y a certain caractères parasites tel que le Chr$(13) et Chr$(10).
A ce moment la j'ai du reécrire la function StrRevers() à ma manière
pour filtré ces caractères.
De plus, je ne pense pas que réecrire une function existente en interne agrave
les performences, cela revient juste a reinventé la roue (perte de temps pour un pro).
24 nov. 2006 à 18:14
24 nov. 2006 à 17:37
le code tient en une ligne : Text2.Text = StrReverse(Text1.Text)
il n'a pas sa place ici, rien à ajouter...
24 nov. 2006 à 17:24
24 nov. 2006 à 17:23
désolé si tu t'es senti agressé, ce n'était pas le but.
pour résumer, ce genre de snippet a sa place sur codyx (pour le coup il y est déjà).
codyx est en logo sur la page d'accueil, un résumé sur la droite pour chaque source en concordance, et les derniers codes sont aussi sur la page d'accueil. je ne dis pas que c'est évident, juste qu'il est difficile de passer à côté
et on essaye d'épurer CS pour faciliter les recherches pour tout le monde.
voilà tout.
si tu veux vraiment partir, confirme le moi par MP et je m'en chargerai (à contre coeur)
24 nov. 2006 à 17:15
sans sources ce site n'avancerai pas, donc evité de parler au gens comme si tout était
évident: nous n'avons pas tous des cours de programmation payer au frais de l'état.
"jète un oeil sur Codyx.Org, on y trouve pas mal de morceaux de ce genre..."
Ainsi je demande la suppression de mes sources et la fermeture de mon compte.
je vous laisse entre "BOSS de la prog" pour faire avancer ce site.
Si les gens Supprimaient les posts d'entraide dans les Forum, il editeraient des livres pour les nOob à la place. :p
Salutation amis programme, lol
24 nov. 2006 à 17:05
24 nov. 2006 à 16:31
Text2.Text = StrReverse(Text1.Text)
End Sub
cette "source" sera supprimée dans la soirée.
jète un oeil sur Codyx.Org, on y trouve pas mal de morceaux de ce genre...
http://www.codyx.org/snippet_inverser-chaine-caracteres_10.aspx
24 nov. 2006 à 15:47
Encore un bout de code fait sous le coup de l'inspiration ^^