Discussion :

[hina 19]

Bonjour,

je veux réaliser un module ocaml qui étant donné un indice et un caractère retourne la sous chaine comme suit
subSTR "bonjour, le, monde" ',' 2 retourne monde
j'ai pensé à utiliser le module sub mais je bloque sur la manière de trouver la taille ou je m’arrête, je vois que je peux genre essayer de trouver le caractère suivant egal celui donné ou la fin de la chaine mais j'arrive pas à faire un code pour cela, j'ai besoin d'aide ou des propositions, Merci d'avance (excusez ma question de debutant)

[Nimant]

voici une solution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
let substring_of_string_of_character_of_integer str cha idx =
  let len = String.length str in
 
  let rec loop accu i =
    if i >= len then "" :: accu else
    try
      let j = String.index_from str i cha in
      loop (String.sub str i (j - i) :: accu) (j + 1)
    with Not_found ->
      String.sub str i (len - i) :: accu 
  in
  let str_l = List.rev (loop [] 0) 
  in
 
  let word_l = List.filter (fun s -> s <> "") str_l in
  String.trim (List.nth word_l idx)
;;
let str = substring_of_string_of_character_of_integer "bonjour, le, monde" ',' 2;;

str;;
- : string = "monde"

[lulzec]

Ou une autre

Code :

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

1
2
3
let nth_substr_delim s delim n =
    List.nth (Str.split (Str.regexp delim) s)      
    n;;