PureBasic

Code : Tout sélectionner

 If CreateRegularExpression(0, "^a")
    Result$ = ReplaceRegularExpression(0, "aaaaabC ABc zbA abc", "0")
    Debug Result$ ; Will print "--- ABc --- abc"
  Else
    Debug RegularExpressionError()
  EndIf

Code : Tout sélectionner

Define stemp.s = "aaaaabC ABc zbA abc"

stemp = "0" + Right(stemp, Len(stemp) - 1)

Debug stemp

Code : Tout sélectionner

t$ = "aaaaabC ABc zbA ABc"

If Left(t$,1) = "a"
  t$ = Mid(t$,2,Len(t$)-1)
  Debug t$
EndIf

Code : Tout sélectionner

t$ = "aaaaabC ABc zbA ABc"

t$="0"+right(t$,len(t$)-1)

debug t$

Code : Tout sélectionner

If CreateRegularExpression(0, "^a+") ;^a{1,} marche aussi
  
  ; si le nombre de a est connu
  Result$ = ReplaceRegularExpression(0, "aaaaabC ABc zbA abc", "0aaaa") 
  Debug Result$ 
  
  ; sinon
  Dim Result2$(0)
  a = ExtractRegularExpression(0, "aaaaabC ABc zbA abc", result2$())
  Debug Result2$(0) ; ="aaaaa"
  result3$="0" + RemoveString(Result2$(0), "a", #PB_String_CaseSensitive , 1, 1); = "0aaaa"
  Debug Result3$
  
  
EndIf

Code : Tout sélectionner

; Initialisation ////////////////////
Global NewList chaine.s()
t$ = "aaaaabC ABc zbA aBcBA Aac"
Separateur.s = " "
NbrSeparateur.i = CountString(t$, Separateur)
Debug Str(NbrSeparateur) + " séparateurs"
Debug ""

ClearList(chaine())  


; Vérification de la chaine pour voir si elle se termine par un espace ou pas. Ainsi dans les 2 cas ça marche. (je suis parano oui ;)
Test.s = ReverseString(t$)
Car.s = Left(Test,1)
If Car = " "
  NbrSeparateur - 1
EndIf  


; traitement ////////////////////
For i = 1 To NbrSeparateur + 1
  
  mot.s = StringField(t$, i, Separateur)
  
  ; Detection ///////////////////
  If Left(mot,1) = "a"
    mot = Mid(mot,2,Len(mot)-1)
  EndIf  
    AddElement(chaine())
    chaine() = mot
  Next

  
; resultat //////////////////////
  
  ForEach chaine()
    
    Debug chaine()
    
  Next