Histoire de faire exploser la tout doux liste

Maintenant que le ASC("") renvoie 0 et non une erreur, ce qui serait bien concernant les chaînes ce serait que:
LEFT$(a$, x), RIGHT$(a$, x), MID$(a$, k, x)
1) renvoient une chaîne vide ("") au lieu de partir en erreur dans le cas où x = 0.
Dans une analyse de chaîne, on arrive toujours plus ou moins à ce genre de situation, et il faut faire des tests pour ne pas tomber dans l'erreur, ce qui alourdit le code.
2) le dernier paramètre , x, dans le MID$, soit optionnel (ou 0, ou -1), de façon à renvoyer tout le restant de la chaîne à partir de k, ce qui éviterait de faire le calcul x = LEN(a$) - k + 1

Ce qui manque aussi beaucoup (au moins à moi...) c'est la fonction
k = INSTR([x], a$, b$)
position de la chaîne b$ dans la chaîne a$ à partir de x (ou 1 si x omis). Et qui renvoie -1 (ou peut-être 0) si b$ non trouvée.

Tout ceci existe en Basic de base, et les mauvaises (?) habitudes d'un certain confort étant prises...

BOOM!
Elle a explosé!

Citation :

que:
LEFT$(a$, x), RIGHT$(a$, x), MID$(a$, k, x)
1) renvoient une chaîne vide ("") au lieu de partir en erreur dans le cas où x = 0.

C'est une très bonne idée. Je vais regarder ce que font les autres Basic dans ce cas de figure.

Citation :

Ce qui manque c'est la fonction
k = INSTR([x], a$, b$)
position de la chaîne b$ dans la chaîne a$ à partir de x (ou 1 si x omis). Et qui renvoie -1 si b$ non trouvée.

Tout à fait. Et je vais la coder.
Depuis le temps qu'on me la demande...

BOOM !

BOOM !

Désolé pour la déflagration, mais ça devait arriver un jour ou l'autre !

Cela dit, du moment que c'est noté, je suis très satisfait, merci Jack !

PS dans les cas de Left$, Right$ et Mid$ ci-dessus, QuickBasic et FreeBasic renvoient tous deux une chaîne vide, sans erreur.
Et Instr renvoie 0 si chaîne non trouvée, ce qui est logique.
Pour le moment, je remplace le Instr par le sous-programme suivant:

Code:

Instr:
REM recherche de la séquence s$ dans ch$, à partir de la position u
REM position rendue dans k (ou 0: non trouvé)
trv = 0
IF LEN(ch$) >= LEN(s$)
    FOR k = u TO LEN(ch$)-LEN(s$)+1
        IF MID$(ch$, k, LEN(s$)) = s$ THEN trv = k: EXIT_FOR
    NEXT k
END_IF
k = trv
RETURN