DominoArea.org [Archive]

Bonjour,

Je recherche une fonction javascript équivalente au @word.
Si quelqu'un à ça dans ses tiroirs, ça m'aiderai vraiment!
(Je n'ai pas l'habitude de demander du code, mais là je suis vraiment pressé par le temps..)

D'avance merci

Damien

salut

je l'ai pas en JS mais en LS, tu devrais pouvoir la convertir facilement

Code : Tout sélectionner

Function Word_LS(wSource As String, wSeparator As String,Byval nbPosition As Integer) As String
   
   'Declaration Variable
   Dim nbI As Long
   Dim nbJ As Long
   Dim nbLK As Long
   Dim nbRE As Long
   Dim nbRes As Long
   Dim nbRs As Long
   Dim nbE As Long
   Dim nbB As Long
   Dim Char As String
   Dim nbSigne As Long
   Dim nbTaille As Long
   
   On Error Goto ErreurHandle
   
   Word_LS  = ""
   
   nbTaille = Len(wSource)
   
   Select Case nbPosition
      
   Case Is <0> 0
      nbB = 1
   Case Else
      Exit Function
   End Select
   
   nbSigne = Sgn(nbPosition)
   nbE = nbTaille-nbB+1
   nbRS = nbB-nbSigne
   nbRE = nbE+nbSigne
   nbLK = Len(wSeparator)
   For nbI = nbB To nbE Step nbSigne
      Char = Mid$(wSource,nbI,1)
      For nbJ = 1 To nbLK
         If Mid$(wSeparator,nbJ,1) = Char Then
            Exit For
         End If
      Next
      If nbJ <= nbLK Then
         If Abs(nbPosition) = 1 Then
            nbRE = nbI
            Exit For
         Else
            nbRS = nbI
            nbPosition = nbPosition - nbSigne
         End If
      End If
   Next
   
   If nbPosition = 1 Then
      Word_LS = Mid$(wSource,nbRS+1,nbRE-nbRS-1)
   Elseif nbPosition = -1 Then
      Word_LS = Mid$(wSource,nbRE+1,nbRS-nbRE-1)
   End If
   
   Exit Function
ErreurHandle:
   Msgbox "("+Structure_Log+" : "+Cstr(Getthreadinfo (1))+" Call by "+Cstr(Getthreadinfo(10))+")"+Chr(10)+"Erreur " + Str(Err) + " : "+Chr(10) + Cstr(Error)+". "+Chr(10)+"Ligne N° "+Cstr(Erl),16," ERREUR !"
   Word_LS = ""
   Exit Function
End Function

Merci Michael, je tâche de convertir ça en JS et le posterai dans les tips.
Tu me fais gagner bcp de temps...

Code : Tout sélectionner

function extrait_valeur (num, texte, separateur)

{
tableau=texte.split(separateur)
return tableau[num]
}


Exemple d'utilisation :
tex="valeurs1|valeurs2|valeurs3"

dans l'ordre on récupère les valeurs 1,2 et 3 de la manière suivante :

valeur1=extrait_valeur(0,tex,'|')
valeur2=extrait_valeur(1,tex,'|')
valeur3=extrait_valeur(2,tex,'|')

Merci Billbock, je teste tout ça...