Discussion :

[floflo164]

Bonsoir à tous,
j'aimerais solliciter votre aide pour résoudre un problème. pouvez-vous me donnez l'équivalent en SAS de ses fonctions VB :
Instr() qui retourne un entier spécifiant la position de début de la première occurrence d'une chaîne à l'intérieur d'une autre.
Mid (Nomdechaîne, nombre1, nombre2) : renvoie une chaîne, extraite de Nomdechaîne, commençant au caractère numéro nombre1 et faisant nombre2 caractères de long.

en fait je voudrais l'adaptation de ce bout de code (écrit en vb) en sas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 v_origin = ""
 j = InStr(l_in, " origin=")
   If (j <> 0) Then
      k = InStr(j + 9, l_in, Chr(34))
      If (k > j) Then
         v_origin = Mid(l_in, j + 9, k - j - 9)
      End If
   End If

quelqu'un pourrait-il m'aider urgemment?

Merci d'avance.

[fdesgrand]

Bonjour,

Pour faire rapide :

Instr --> Index

Mid --> Substr

[floflo164]

Merci pour la réponse rapide.

j'ai donc modifier ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    v_var1 = ""
   j = Index(l_in, "A_CURSTA=")
   If (j <> 0) Then
      k = Index(j + 10, l_in, Chr(34))
      If (k > j) Then
         v_var1 = substr(l_in, j + 10, k - j - 10)
      End If
   End If

Je crois que c'est bien ça.