Page 2 sur 3

Re: LimitedFindString

Publié : jeu. 15/juil./2010 14:58
par dayvid
À oui c'est vraiment très ingénieux de ta part
merci du tuyau solda inconnue :D
moi je travail toujours sur le code et j'avance pas trop mal
mais je reste qu'un novice a coté de vous (soupir)
mais je fait de mon mieux, il faut croire que je ne soit pas très malin moi
mais j'espères qu'avec le temps sa viendra

a plus les enfants :lol: :mrgreen:

Re: LimitedFindString

Publié : jeu. 15/juil./2010 16:31
par Ar-S
Le Soldat Inconnu a écrit :pour remplacer les accents, essai
LCase(UCase(éèê))
Tu es sûr LSI ? (mise à part les guillemets qui manque)

Code : Tout sélectionner

Phrase$="J'écoute la bête râler"
debug LCase(UCase(phrase$))
Ici les accents sont toujours présent.

Re: LimitedFindString

Publié : jeu. 15/juil./2010 18:07
par Le Soldat Inconnu
ah zut, ça marchait sur les anciennes version de PB, ça a du changer :mrgreen:

Re: LimitedFindString

Publié : ven. 16/juil./2010 13:48
par dayvid
alors sa marche plus hein c'est sa :cry:
ba tampie alors c'est la vie lol :mrgreen:

Re: LimitedFindString

Publié : ven. 16/juil./2010 17:17
par SPH
Il ne te reste plus qu'a le convertir lettre par lettre

Re: LimitedFindString

Publié : sam. 31/juil./2010 13:03
par Ar-S
SPH a écrit :Il ne te reste plus qu'a le convertir lettre par lettre
Allez courage, c'est pas dur même si un peu fastidieux.

Re: LimitedFindString

Publié : sam. 31/juil./2010 13:11
par dayvid
personne ne pourais m'aider la dessue svp ?

Re: LimitedFindString

Publié : sam. 31/juil./2010 13:35
par Ar-S

Code : Tout sélectionner

source$="texte avec des é, des â, des ô etc.."
source$=ReplaceString(source$,"é","e")
MessageRequester("Le é s'est bien changé en e",source$) ;
que dire de plus ?

Re: LimitedFindString

Publié : lun. 02/août/2010 14:54
par dayvid
a oui mais sa je sais faire
merci, je parlais de la commande limitedfindstring si qu'ellequ'un peut my aider
sinon a plus :)

Re: LimitedFindString

Publié : mar. 03/août/2010 17:42
par mekkisoft
DayVid tu compliques trop la vie !

D'abord je ne vois pas pourquoi tu te fatigues si péniblement pour un traitement qui ne donne pratiquement pas grand'chose et en plus un code trop long...
Essayes d'organiser un peu le plan du traitement et évites les répétitions (inutiles), quelques déclarations sont faites inutilement alors qu'elles peuvent être utilisées uniquement en temporaire (à l'intéreur même des procédures puisqu'elles ne sont pas utilisées ailleurs...)

Essayes de cumuler un peu tes préférences en limitant le nombre de lignes et le nombre
de conditions....

Je te conseille de faire ceci dans l'ordre:

1) Remplaces ta chaîne en minuscule
2) Remplaces les caractères (comme è é ê etc...) par (e) et les (û etc...) par (u)...
(Utilises la méthode de Ar-s (ReplaceString))
3) Remplaces ensuite la chaîne en majuscule
4) Effectues maintenant le traitement des recherches de caractères et ou de mots...

Re: LimitedFindString

Publié : mar. 03/août/2010 18:03
par SPH
mekkisoft a écrit :DayVid tu compliques trop la vie !

D'abord je ne vois pas pourquoi tu te fatigues si péniblement pour un traitement qui ne donne pratiquement pas grand'chose et en plus un code trop long...
Essayes d'organiser un peu le plan du traitement et évites les répétitions (inutiles), quelques déclarations sont faites inutilement alors qu'elles peuvent être utilisées uniquement en temporaire (à l'intéreur même des procédures puisqu'elles ne sont pas utilisées ailleurs...)

Essayes de cumuler un peu tes préférences en limitant le nombre de lignes et le nombre
de conditions....

Je te conseille de faire ceci dans l'ordre:

1) Remplaces ta chaîne en minuscule
2) Remplaces les caractères (comme è é ê etc...) par (e) et les (û etc...) par (u)...
(Utilises la méthode de Ar-s (ReplaceString))
3) Remplaces ensuite la chaîne en majuscule
4) Effectues maintenant le traitement des recherches de caractères et ou de mots...
T'es beau toi !!
Au lieu de redonner tous les conseilles qui ont deja ete donné, post donc un code pour voir...

Re: LimitedFindString

Publié : mer. 04/août/2010 16:09
par dayvid
T'es beau toi !!
Au lieu de redonner tous les conseilles qui ont deja ete donné, post donc un code pour voir...
ha ha ha :mrgreen: :mrgreen: :mrgreen:

qu'est ce que je me marre, bien jouer SPH, bien jouer :D

tout a fait d'accord avec toi, a part donner des conseil
tu sait faire quoi d'autre hein au juste c'est a ce demander :roll:

tu te prétend le dieux de la programmation mais je te ferais dire que
tous ce don je t'ai demander est rester dans l'oreille
plus que d'un sourd alors arrête deux minute OK !

donne moi un code au lieux de donner des conseils a tous va gros malin :twisted:

depuis que t'es la tu parler mais ne fait rien a part frimer évidement, moi j'ai ramer pour m'adapter
dans ce forum mais le jeu en vaux la chandelle et je pence que je me débrouille pas trop mal

mais toi c'est chaque fois la même chose (rien) tu dit que tu bosse sur notre projet mais sa fait
8 plombe que je te demande de me faire voir ou tu en étais mais non rien pour changer

la doc de soit disant 100 € que je t'es demander de me procurer na même pas effleuré tes oreilles et
dieux sait combien de fois je te les demander et je parle pas du reste, je montrerais pas le log de nos
conversation car sa ce passe de commentaire

je parle librement la, il est temps que tu fasse tomber ton masque car cella me gonfle ce genre de truc
je suis pas méchant mais juste réaliste :mrgreen:

car eux au moins ils m'aide mais toi jamais !

Alors repentie toi au sinon ont se quitte :twisted: :twisted: :twisted:

c'est vrais quoi !, tu m'aide jamais donc sa va changer quoi au juste
et pour notre projet je demande a en voir la soit disante couleur
ok après ont verra pour le reste

SPH ton message ma fait rigoler tu sait et en plus cella ma fait réaliser la chose. :wink: :)

au faite mekkisoft ta déjà poster un code ici toi hein ?

si je cherche a faire une t-elle commande c'est par pour rien alors file moi un code
que tu aura fait toi même ou va t'en

en plus tu dit que sa donne pratiquement rien, merci du compliment car moi sa donne bien qu'elle que chose
même si c'est ridicule a tes yeux, moi au moins je bosse et je poste des codes alors que toi rien tu comprend la !

SPH tu marque 1 point

et moi j'aime bien me compliquer la vie car ensuite tu trouve que elle est plus facile
tu vois, exemple si tu as une porte fermer et une ouverte, la qu'elle je prend d'après toi hein ?
tu te dit que vaux mieux prendre celle ouverte et ta pas tord mais ce que tu sais pas c'est que
ya un gros méchant loup derrière prêt a te botter le cul mais sa tu le sait pas toi
alors que si tu prend celle qui est fermer, c'est bande de naze ne s'atendron pas a t'y voir
ensuite tu fait le tour et tu les nique en douseur tu vois le genre

bref ont s'en fiche que je me complique la vie ou non, le but c'est déxpérimenter
toi, tous ce que tu éxpérimente, c'est la patience des autre
tu prend trop les gent pour des cond j'ai l'imprésion non ? :?:

aller a plus :D

Re: LimitedFindString

Publié : jeu. 05/août/2010 11:15
par SPH
dayvid a écrit :qu'est ce que je me marre, bien jouer SPH, bien jouer :D
SPH tu marque 1 point
Des muscles faciaux ont étiré les bords de ma bouche vers le haut; la rendant telle une banane !!! :mrgreen:

Ta sagesse viens de te faire gagner du temps :

Code : Tout sélectionner

txt$="ŠšŽžŸÀÈÌÏÑÒÖÙÜÜÝàåèëìïðñòöùüýÿ"


;;; Bloc qui efface TOUS les accents des caracteres ;;;
ReplaceString(txt$,"Š","S",#PB_String_InPlace)
ReplaceString(txt$,"Ž","Z",#PB_String_InPlace)
ReplaceString(txt$,"š","s",#PB_String_InPlace)
ReplaceString(txt$,"ž","z",#PB_String_InPlace)
ReplaceString(txt$,"Ÿ","Y",#PB_String_InPlace)
For u=0 To 1 : For i=0 To 5
ReplaceString(txt$,Chr(192+u*32+i),Chr(65+u*32),#PB_String_InPlace) ; Aa
Next : Next
For u=0 To 1 : For i=0 To 3
ReplaceString(txt$,Chr(200+u*32+i),Chr(69+u*32),#PB_String_InPlace) ; Ee
Next : Next
For u=0 To 1 : For i=0 To 3
ReplaceString(txt$,Chr(204+u*32+i),Chr(73+u*32),#PB_String_InPlace) ; Ii
Next : Next
For u=0 To 1 : For i=0 To 4
ReplaceString(txt$,Chr(210+u*32+i),Chr(79+u*32),#PB_String_InPlace) ; Oo
Next : Next
For u=0 To 1 : For i=0 To 3
ReplaceString(txt$,Chr(217+u*32+i),Chr(85+u*32),#PB_String_InPlace) ; Uu
Next : Next
ReplaceString(txt$,"Ñ","N",#PB_String_InPlace)
ReplaceString(txt$,"Ý","Y",#PB_String_InPlace)
ReplaceString(txt$,"ð","o",#PB_String_InPlace)
ReplaceString(txt$,"ñ","n",#PB_String_InPlace)
ReplaceString(txt$,"ý","y",#PB_String_InPlace)
ReplaceString(txt$,"ÿ","y",#PB_String_InPlace)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


Debug txt$

Re: LimitedFindString

Publié : jeu. 05/août/2010 12:36
par case

Code : Tout sélectionner

a$="éèààéèéàèéùùùùùï"
Debug a$
Repeat
  v=PeekC(@a$+pos)
  Select v
    Case 224 To 229
      PokeC(@a$+pos,97)
    Case 232 To 235
      PokeC(@a$+pos,101)
    Case 236 To 239
      PokeC(@a$+pos,105)
    Case 242 To 246
      PokeC(@a$+pos,110)
    Case 249 To 252
      PokeC(@a$+pos,117)
  EndSelect
  pos+1
Until v=0
Debug a$
pas plus rapide comme ca ? je sais pas

Re: LimitedFindString

Publié : jeu. 05/août/2010 12:43
par SPH
case a écrit :

Code : Tout sélectionner

a$="éèààéèéàèéùùùùùï"
Debug a$
Repeat
  v=PeekC(@a$+pos)
  Select v
    Case 224 To 229
      PokeC(@a$+pos,97)
    Case 232 To 235
      PokeC(@a$+pos,101)
    Case 236 To 239
      PokeC(@a$+pos,105)
    Case 242 To 246
      PokeC(@a$+pos,110)
    Case 249 To 252
      PokeC(@a$+pos,117)
  EndSelect
  pos+1
Until v=0
Debug a$
pas plus rapide comme ca ? je sais pas
Approche interessante aussi :P (et tres certainement plus rapide ouai grace aux 'Case' que je devrais me mettre à etudier)
Il y a au moins 57 caracteres accentués a controler. Regarde la table dans PB : Option / Table ASCII