" Allo...Houston !...on a un problème...

Je me bats depuis cette après midi avec le chr$(34) ou "
Lorsque je récupère une ligne de RE contenant le chr$(34) ou "
il est effacé par Panoramic.

La ligne : "Ma belle mère est une...." devient : Ma belle mère est une....

du coup, il me vient impossible de savoir si le chr$(34) est présent ou pas dans cette ligne...

Quelqu' un aurait une idée lumineuse pour remédier à cela ?

Invité

Tu vois comme dans le post:
https://panoramic.1fr1.net/t3472-resolu-pourquoi-item_add-n-ajoute-pas-un-caractere
ce n'est pas simple.

Comme je pense qu'il s'agit de coloriser une chaine, je pense que le mieux serait que tu demandes si Klaus accepte de coder une fonction qui affiche une chaine avec les guillemets. Il n'y aurait que le texte, mais la fonction les rajouterait. (Je fais comme si Klaus acceptait toutes les demandes. Smile

)

Le top serait que la fonction renvoi le code ascii du caractère de la position p%
ainsi on aurait pas affaire avec le caractere " mais avec son code.
qu' en penses tu Cosmos70 ?

La fonction pourrait être

Code%=dll_call1("CodeCaractere",position%)

ainsi on pourrait faire un truc du style :

Code:: res% = dll_call2("RichEditGetInformation",RE%,1)
res% = dll_call2("RichEditStringSave",RE%,adr(s$))
for x%=1 to len(s$)
Code%=dll_call1("CodeCaractere",x%)
if code%= 34
if sep1%=0
sep1%=x%
else
sep2%=x%
cnt%=(sep2%-sep1%)+1
res% = dll_call3("SelectRichEditText",RE%,sep1%,cnt%)
res% = dll_call3("RichEditFunction",RE%,7,couleur%)
sep1%=0
sep2%=0
end_if
next x%

Je suis sûr que le défi intéressera Klaus... Laughing

Je vais faire une copie de mon post pour celui de la dll.

Nombre de messages : 1595 Date d'inscription : 19/01/2014

Bonsoir.

Le code suivant ne fonctionne pas correctement.
En effet, les guillemets n'apparaissent pas au final.

Code:: dim a$, guillemet$

guillemet$=chr$(34)

a$=guillemet$+"texte"+guillemet$

message a$

@Ygeronimi:
Ok, je te fais ça...

Bonsoir à tous Smile

Est-ce que mon petit prog peut aider?

Code:: dim a$,g$
g$=chr$(34)
list 1:top 1,50
list 2:top 2,50:left 2,150

a$=g$+"texte sans chr$(10)"+g$
print a$
message a$
item_add 1,a$

a$=chr$(10)+g$+"texte avec chr$(10)"+g$
print a$
message a$
item_add 2,a$

A+

@ Klaus,

Merci beaucoup le RichEdit va devenir un super objet
grâce à toute les fonctions que tu nous apportes.

Memo n' a qu' à bien se tenir... Laughing

@ Bignono,

le truc, c' est que grâce à une fonction de la dll, on récupère une phrase dans une variable $
mais lorsque je fais une analyse de cette variable, les " sont ignorés.

Ok Ygeronimi! Smile

Par contre je viens de m'apercevoir d'un truc, ce qui explique peut-être ton problème de perte des guillemets.

Code:: dim a$,g$
g$=chr$(34)

' là ça marche
a$=chr$(10)+g$+"texte"+g$
print a$
message a$

' Ici ca ne marche pas à cause de l'opération de concaténation
a$=g$+"texte"+g$
a$=chr$(10)+a$
print a$
message a$

@Ygeronimi:
La nouvelle version KGF.dll V2.81 du 13/02/2014 est en ligne.
La fonction RichEditGetInformation a maintenant un code fonction 5 qui retourne la valeur ASCII du caractère immédiatement après la position du curseur, ou 0 si le curseur est positionné après le dernier caractère du texte.

Pour la petite histoire, je l'ai testé avec un petit programme fait directement dans l'IDE, avec un bouton et un RichEdit. Le bouton avait un évènement On_click nommé "go", et la procédure go était comme ceci:

Code:: sub go()
res% = dll_call2("RichEditGetInformation",RE_table%(1),5)
message str$(res%)+"="+chr$(res%)
end_sub

Un jeu d'enfant - c'était fait en 30 secondes.

Merci Klaus !

Promis la prochaine sera plus biscornu... Laughing

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour,
Je reprends ce vieux sujet, car je me suis aperçu que pour insérer des guillemets dans un texte d’objet, il suffisait de les remplacer tout simplement par 2 apostrophes.
Mais peut-être que d’autre le savait ? Dans ce cas veuillez pardonner ma naïveté. albino

Bien sur cette combine ne fonctionne que pour du texte.

Code:: alpha 1 :top 1,10 :caption 1,"''Texte''"
edit 2 :top 2,30 :text 2,"2eme ''Texte''"
list 3 :top 3,60 :item_add 3,"''Texte'' n°3"

Non, je ne le savais pas. Excellente trouvaille, et merci pour le partage !

Oui Francis-mr, c'est une combine pour donner l'apparence de guillemets, mais attention ce n'est qu'une apparence.
Ce n'est pas exploitable avec les commandes de traitement de textes comme LEFT$(a$,2) et toutes les autres.

Voici ton code avec une police fixe.

Code:: alpha 1 :top 1,10 :font_name 1,"DejaVu Sans Mono": caption 1,"''Texte''"
edit 2 :top 2,30 :font_name 2,"DejaVu Sans Mono": text 2,"2eme ''Texte''"
list 3 :top 3,60 :font_name 3,"DejaVu Sans Mono": item_add 3,"''Texte'' n°3"

A+

Pourquoi vous n'utilisez pas chr$(171) et chr$(187) à la place de chr$(34)?

Code:: ' laissez la souris quelques instants sur le caractère pour connaitre son code ASCII

dim i,j,k,a$
width 0,900
k=0-1

for i=0 to 15
for j=0 to 15
k=k+1
alpha k+1 : hint k+1,str$(k) : top k+1,i*16 : left k+1,j*48 : caption k+1,chr$(k)+" "+chr$(k)
next j
next i

print_locate 0,300
a$=chr$(171)+"azerty"+chr$(187)
print a$

Voici comment je résous ce problème.
C’est acrobatique, mais ça marche !

Code:: dim g$ : g$ = chr$(34)

alpha 1 :top 1,10 :font_name 1,"DejaVu Sans Mono": caption 1,"''Texte''"
edit 2 :top 2,30 :font_name 2,"DejaVu Sans Mono": text 2,"2eme ''Texte''"
list 3 :top 3,60 :font_name 3,"DejaVu Sans Mono": item_add 3,"''Texte'' n°3"

alpha 10 :top 10,10:left 10,200 :font_name 10,"DejaVu Sans Mono": caption 10,g$+g$+"Texte"+g$+g$
edit 20 :top 20,30:left 20,200 :font_name 20,"DejaVu Sans Mono": text 20,"2eme "+g$+"Texte"+g$
list 30 :top 30,60:left 30,200 :font_name 30,"DejaVu Sans Mono": item_add 30,g$+"Texte" +g$+" n°3"

font_name 0,"DejaVu Sans Mono" : font_bold 0 : font_size 0,12
print_locate 20,250 : print g$ + "Pour insérer des guillemets" + g$ + " utilisez chr$(34)"
print_locate 20,270 : print g$ + "Pour un ALPHA" + g$ + " doublez chr$(34)"

Citation :: dim g$ : g$ = chr$(34)

Oui. C'est la technique que j'utilise couramment. J'avais un espoir, à la lecture de l'astuce des deux apostrophes successifs, espoir vite douché. Dommage. Mais il faudra un jour que Jack revoie la gestion des chaînes de caractères. Ce n'est pas normal ce qui se passe.

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bien sur, comme je le précisais cette combine n’est valable que pour l’affichage d’un texte et évidemment pas avec une police fixe.
Et dans ce cas, c’est quand même plus rapide à écrire que les chr$(34) avec ajout de variables.
Vous me direz pourquoi faire simple quand on peut faire compliqué geek

Francis-mr a écrit:: Vous me direz pourquoi faire simple quand on peut faire compliqué

C’est, sans doute parce que le simple n’a pas d’intérêt.
Le compliqué, si !
Plus ça se complique, plus ça devient intéressant, tu ne trouves pas ? Basketball

Nombre de messages : 186 Date d'inscription : 26/11/2012

Voui voui Papydall, si c’est trop simple cela n’a pas d’intérêt, mais je suis fainéant Exclamation

» J'ai un problème...
» Allo ! Les spécialistes des DLL
» Problème avec select case Probleme réglé merci
» Pour Klaus: problème avec kgf.dll.
» Problème de 3D.