AccueilCodesTutorielsForumsEmploiLivresConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 22 23:41:24
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

5 commentaire(s) de zefri sur des sources sur tout CodeS-SourceS

Le : 29/11/2002 00:01:43
Source : PETITE FONCTION DE RECHERCHE ET DE REMPLACEMENT DE CHAINE DANS UNE GRANDE CHAINE
Faute de Replace, Mid tu connais ? Dans le genre exercice de style on peut avantageusement remplacer ta fonction par celle-ci

Function Pseudo_Replace(chaine As String, mot As String, substitut As String) As String
        
Dim i As Integer, position As Integer
Dim debut As String, fin As String

    position = InStr(1, chaine, mot)
    If position > 0 Then
        debut = Mid(chaine, 1, position - 1)
        fin = Mid(chaine, Len(debut) + Len(mot) + 1)
        Pseudo_Replace = debut + substitut + fin
    Else
        Pseudo_Replace = chaine
    End If
End Function


Mais bon, pourquoi faire simple quand on peut faire compliqué !

Le : 27/11/2002 21:01:50
Source : CRÉATION D'UN ARBORESSANCE
Bon, ben ça doit être un bug d'affichage, les backslash disparaissent...
Donc là où on voit un backslash il faut en voire deux, et quand on voit juste "" c'est qu'il y a un backslash entre guillemets.
Milles excuse, je connaissais pas ce bug.
En tout cas le code fonctionne un fois remis les backslash à leur place, je l'ai testé !

Le : 27/11/2002 20:56:02
Source : CRÉATION D'UN ARBORESSANCE
Oups !
Au lieu de Split(Path, "") il faut lire Split(Path, ""), évidemment...


Le : 27/11/2002 20:54:09
Source : CRÉATION D'UN ARBORESSANCE
Référence plutôt Microsoft Scripting Runtime dans ton projet, et puis alors le code se simplifie de façon étonnante :

Private Sub Check_Directory(Path As String)
On Error GoTo Error
Dim oFso As New FileSystemObject
Dim vItem As Variant
Dim FullPath As String

    If Not oFso.FolderExists(Path) Then
        For Each vItem In Split(Path, "")
            FullPath = Replace(FullPath & vItem & "", "\", "")
            If Not oFso.FolderExists(FullPath) Then
                oFso.CreateFolder FullPath
            End If
        Next
    End If

Exit Sub

Error:
    MsgBox Err.Description
End Sub

Le : 01/06/2002 18:29:18
Source : SUPPRIMER UN MOT DANS UN TEXTE
Test :
Text1.text = "Tout, tout, absolument tout.", Text1.text ="tout".
Résultat : "Cette phrase ne contient pas ce mot".

En effet, MyTab(i) sera égal à "tout," qui n'est pas la même chose que "tout".
Une autre remarque c'est que le texte au final se retrouve tout en minuscules.
C'est donc écrire beaucoup de code pour pas grand chose, si tu connais la fonction Replace, elle fait le boulot toute seule.

Text3.Text = Replace( LCase(Text1.Text), LCase(Text2.Text), "")

Ca donne un code un peu plus simple !


1


Nos sponsors

Sondage...

CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,047 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.