Petit soucis de procedure pour ASC

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Répondre
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Petit soucis de procedure pour ASC

Message par Ar-S »

Pourquoi cette procedure capote ?

Code : Tout sélectionner

Procedure transcriptor()
  touche$=GetGadgetText (#Afficheur)
  If touche$ <> ""
    ValeurASCII = Asc(touche$) 
    SetGadgetText(#Afficheur_Chr,ValeurASCII)
   Else
    Delay(20)
  EndIf
EndProcedure
J'entre une phrase dans un editor #Afficheur
et je voudrais que la phrase récupérée dans touche$
apparaisse sous forme ASCII dans l'editeur 2 #Afficheur_Chr
Haut
Cls
Messages : 620
Inscription : mer. 22/juin/2005 8:51
Localisation : Nantes

Message par Cls »

Il faut le faire pour chaque valeur ASCII de ta chaîne de caractères.
ASC renvoi la valeur d'un caractère et non d'une chaîne.

Il faut un truc du genre (non - testé) :

Code : Tout sélectionner

res.s
For x = 1 to Len(touche$)
  car.l = Mid(touche$, x, 1) ; Chope 1 caractère de la ligne
  res + Str(Asc(car)) ; Le converti au format ASCII puis en chaine de caractère et l'ajoute au résulat
Next
Cordialement.
Haut
brossden
Messages : 821
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Un petit exemple avec les adresses mémoire !

Code : Tout sélectionner

Procedure.s Str2Asc(Text.s)
  Repeat
    Ret.s+Str(PeekC(@Text+n))+" "
    n+1
  Until PeekB(@Text+n)=0
  ProcedureReturn Ret
EndProcedure

Debug Str2Asc("Test")
Denis

Bonne Jounée à tous
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Merci Brossden,
je ne comprends pas trop cette procédure même si elle marche au poil !
Haut
brossden
Messages : 821
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Alors un peut d'explication :

@Text >> Représente l'adresse mémoire de la variable Text
PeekC(Adresse) >> Renvoie le numéro du caractère situé à Adresse
n+1 incrémente la valeur de n de 1.
donc :
PeekC(Adresse+1) >> Renvoie le 2ème caractère et ainsi de suite...
Une chaine se termine par un caractère "0" zéro !

Donc l'algorithm c'est :

Ajoute le numéro du Nième caratère de "Text", plus un espace, à l'ancienne valeur de "Ret" tant que ce caractère est différent de zéro !

Simple non ?
Denis

Bonne Jounée à tous
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Ah ba c'est super simple vu comme ça !!!

Grace à toi mon convertisseur affiche plutôt les charactères comme ça :

Code : Tout sélectionner

Ret.s+"chr("+Str(PeekC(@Text+n))+")+"
Ce qui donne à l'affichage pour 'merci ':

chr(109)+chr(101)+chr(114)+chr(99)+chr(105)+chr(32)+chr(33)+

(me suffit juste de virer le dernier + pour m'en servir direct dans pb)

Voilà mon code entier :)

Code : Tout sélectionner

; Par LANDIVIER Cyrille / 2007

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #AR_S
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Afficheur
  #Afficheur_Chr
  #Info2
  #Image_titre
  #About
  #Transforme
  #Copier
EndEnumeration
;}
;{ Images
Enumeration
  #Image_Image_4
EndEnumeration
;}
;{ Included Images
DataSection ;>
  Image_Image_4:

  Data.l $E0FFD8FF,$464A1000,$01004649,$64000002,$00006400,$1100ECFF,$6B637544,$00010079,$00000004,$FF00003B,$410E00EE,$65626F64
  Data.l $00C06400,$FF010000,$008400DB,$05050507,$05070505,$06090705,$0B090605,$08070708,$0A0A0D0B,$0D0A0A0B,$0C0C0C10,$100C0C0C
  Data.l $100F0E0C,$140C0E0F,$14151514,$1C1C1D14,$20201D1C,$20202020,$20202020,$07070701,$190D0C0D,$1B191010,$1B161216,$20202020
  Data.l $20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$00C0FF20
  Data.l $39000811,$01034401,$11020011,$01110301,$9C00C4FF,$05010000,$00000101,$00000000,$00000000,$03020000,$01060504,$01010107
  Data.l $01010101,$00000000,$00000000,$01000000,$05040302,$02020010,$04010301,$07060805,$00000905,$03020100,$12110004,$31211305
  Data.l $61510641,$71071422,$34B33332,$8135B474,$B2725291,$82624223,$17751573,$248353A1,$A3C2B136,$9454D3C3,$01115545,$02020001
  Data.l $02020401,$00000103,$00000000,$12021101,$41213103,$81711332,$04426151,$DAFF2214,$01030C00,$03110200,$003F0011,$D8E4CCF5
  Data.l $F2C989C0,$5B0B6FDC,$FA39F9DE,$55C51E31,$FAC7EE52,$949FA0A8,$96130FF7,$CF5A6A6B,$2F9FC427,$4B43C4CA,$74309694,$DA78A5EB
  Data.l $DDF9353D,$F4D3EE92,$9FCEEA6B,$71C9C94E,$6B78990F,$B4F2635C,$C5707B65,$083C7024,$4C1327BB,$52461AEB,$59521853,$7A2069C7
  Data.l $702E1CF3,$F85655B9,$B3D9C08B,$72BAB75A,$54EEFD55,$86A73986,$3AF71631,$7325A52E,$5733E0E3,$E494C9AA,$23A111D5,$73DA9CD1
  Data.l $2030C000,$3ED5FC72,$69B3B012,$F2769F25,$640857B1,$1D991A2B,$5FA35187,$DB935465,$6D5D6BAE,$45E196F0,$7F70A5FE,$FF3167FE
  Data.l $FF87C700,$F4375F00,$2827FCED,$C097F8E1,$1EA5DE2E,$0B660452,$820896D5,$4C3A7D02,$970CF5C7,$6B7268AB,$53B17699,$73DA9CE1
  Data.l $0C30C000,$30C00003,$C000030C,$69000C30,$5CB307A8,$3FDFD50C,$3D2CD470,$D8C8A567,$6B49BB29,$C1C60BC5,$1A66A31D,$F806ACCC
  Data.l $77407BD8,$B5D54967,$E7926799,$732AE589,$AD1C6C7C,$B1D62211,$02CA6ABB,$18C528B8,$61870530,$B398035F,$81CC440D,$780DCB12
  Data.l $883BB164,$C84B85E0,$8D2AB8E7,$6FA3C049,$2439793E,$18C9C930,$C9D856E6,$B5496B25,$DD86D0B5,$EFA1DB10,$A97435D7,$1C1AF995
  Data.l $6D068CCA,$4B95865A,$20126C17,$CB9314A9,$22DB6AB4,$F1A0ED52,$DC0C0C3A,$687811BF,$E3257825,$4CAC6E39,$60D8BED1,$42A7DC75
  Data.l $4FE52C03,$BFCEF068,$3CC3DF4E,$21FE75A1,$026776F9,$1D871CC4,$DB13EC11,$FA5A3AAE,$1F294FCC,$5BBD64A4,$4B93634F,$86D8B014
  Data.l $49A4353B,$A3BB4CEB,$19193296,$3923884F,$800156B4,$5A0C1860,$C884579C,$D73C307C,$BC8C1CCD,$214B8B85,$45ED38D6,$91FA631C
  Data.l $FC0249D7,$BE99499D,$ED193D5D,$73F99FE8,$9596CADB,$7825EBBD,$ADA448E2,$65CFCC5A,$75DEF347,$891BCB12,$10847A7E,$87BDDA85
  Data.l $9B74AE53,$67FAE37A,$EDFCFB0E,$DBDE0ECC,$FF2C49A9,$B8A55C00,$B51F319C,$C6DC0EEC,$B02800FF,$22C9C2E2,$C7558872,$E529721B
  Data.l $1E597083,$743B9035,$F60910F7,$99EB7B73,$7E953652,$F7384725,$968643CE,$07B8179F,$67EB04B7,$BE412761,$CF309130,$CBB8E82D
  Data.l $FC6E27A7,$5AF67A42,$5F4A5C3A,$219564AA,$B7882EB0,$7578A588,$3790D02A,$180DF718,$D76424FB,$EC92D9A2,$964AFD67,$7EA5D649
  Data.l $9FDEDE01,$22EE8DCC,$2284DE68,$CFFE0F36,$F5FC2F93,$2F9C3439,$15CC473F,$49A296A7,$1137CD5E,$0238AB5B,$A6839C48,$3A0812BA
  Data.l $39AB0F1D,$D597AD6D,$79C772A9,$B1D8AEBD,$29890559,$B0FA6935,$50D648D8,$0C46A9A4,$ABC0D88D,$69CDA169,$58622EB6,$6987DCCE
  Data.l $59D29D89,$C96BB6CC,$65A5703C,$54204194,$22408C7E,$3DC31F9D,$5CC95C9A,$A386C7EA,$5FC2231F,$7ABD5ABA,$52694D7C,$49747FC5
  Data.l $11EBB067,$2C5BE695,$787224CB,$E851ED28,$B2B3CB39,$68A446CF,$718BF8E6,$F00B4B2D,$C885200B,$A7BEE291,$64A15355,$46328257
  Data.l $355DA39D,$EAF55FCC,$E25F37F3,$92BCBC57,$E3310527,$34CDD4E0,$44E65176,$28D0ED1D,$FABFDFBD,$1C1B7D72,$DFBC9797,$A0E252C2
  Data.l $DC32E3E5,$4862DC82,$FD468523,$FB0D8A19,$D4F6858A,$7450A7AF,$D7EB3907,$D650596B,$B93597F8,$03F855BA,$167BDC20,$8F8A75EA
  Data.l $1D881111,$F4D7F074,$BDFE49E7,$5FCE9267,$C7CD713D,$A435AAB5,$1852F496,$B7ECE3A7,$2C1BC9BB,$30434E32,$C272BE59,$A71D34DB
  Data.l $579D99D1,$CF4A5E38,$E34832F5,$0CF0EC69,$78400090,$DFBEA4AE,$52D26180,$E4B7AF07,$9C8A5ECD,$00FFF892,$D04E3088,$938C5F9E
  Data.l $C46DAB8A,$96595B50,$B8DB3BCC,$4F190B39,$D36D72D4,$92CDCA64,$3D00FF39,$CD1CBC71,$72B31A56,$90BA9036,$E816A5A7,$A18E63DB
  Data.l $05D64E0C,$A0460A49,$9D19758D,$C82EAD7A,$1B23BE54,$C1B3A601,$FE281DCD,$52967A92,$64E941D9,$F483160B,$C946EFE6,$CD7779C9
  Data.l $2A2E2D1C,$F6A8630E,$A58DDB6A,$DEA9B0AE,$162BA4C8,$5620B4DD,$3BED4E21,$9EF33B7B,$CB5A5BBA,$E9C41F37,$5BA59B27,$DA023281
  Data.l $1CA97B20,$D1767FA4,$CEB5FA77,$C9B3A293,$789D1771,$29D9EAE9,$ADFC5A5E,$3A7E0843,$96B6E8E1,$FDEA4A27,$810D1245,$02C45DA5
  Data.l $7A31A347,$C9ABB8AC,$A7129F54,$5FFEB4D4,$4A7F042B,$7547DDD1,$9398DD1F,$FF9BD7C7,$23A79E00,$5B23E263,$889BD988,$8D1CA79A
  Data.l $3AC3ADB5,$E82464D8,$19D9E2BB,$BCFEF403,$3919177D,$E6A7D731,$B899DEA8,$E2DBEBE9,$B8354D6C,$791DB5A3,$EA4C6B97,$96B174E3
  Data.l $74329A01,$F7D0EE46,$C9395DE7,$70338C31,$775EF0D4,$5211A79A,$2D152EBD,$58B2A599,$2C5CA125,$445A27CD,$3439DA48,$4DC0758C
  Data.l $9F339D5C,$6BF576D5,$E29B1396,$A7D85257,$599A824B,$732C0154,$57644859,$6CAA92FE,$7678FA70,$4EB2FAF6,$9873728A,$D7F837F3
  Data.l $1D8F7215,$967A7F42,$49D58217,$2D6245D8,$91E86EE3,$F25EBD44,$3E607747,$6E7A8D83,$B9985D70,$BEDF3CE3,$2674722C,$569224B3
  Data.l $BDAD26AF,$C8F4D8DD,$1BBD7D5D,$CEAEE7F5,$D4E86159,$D114EF3C,$8D6B6EDD,$809E889F,$8CFB4A8B,$649128CF,$0E29A83A,$9258089A
  Data.l $CFF1007B,$5C56DD16,$27954D3A,$6E5687E2,$CA0C3E9D,$3D8D4D87,$5FDB81C4,$FDDF18EA,$45A7E684,$9E72454E,$E3978767,$097D4A39
  Data.l $8FE3DBF8,$C852CDB6,$1C08BA1A,$50D78D96,$DDDB01C0,$EBAEDB99,$479673E5,$91D36895,$B03A9977,$2319B1A4,$0AE88DD4,$68475DEE
  Data.l $BB6776D4,$61672E6F,$840E62BB,$16E288F1,$C2D0BA19,$391E389D,$1561AF21,$B0AFD4A2,$DEDD942C,$E6F60440,$2533DF74,$09C3778D
  Data.l $932B6EA4,$EAB54EA8,$FE022DDC,$541D94C8,$734DB57A,$5D3DDDC7,$93F36C35,$30C00043,$A5C3792B,$631EC417,$AF257DC9,$57C28FBD
  Data.l $C74F77CF,$1FB2E5F6,$704FC611,$D452B75B,$78D3EC94,$B346BA0A,$286B2502,$CBFEE8CA,$1E9ABD02,$B5D9E7CC,$93C56CD7,$3AA9592B
  Data.l $B15C9240,$5A51AB15,$3A9263A8,$46935351,$639512B3,$E3CB0A09,$E3EBBADA,$B5CB5E93,$614CFE99,$9C8C9C02,$949078C5,$460AB36B
  Data.l $1249D064,$692391D8,$D90E6222,$6FED5815,$D6BEEF0C,$1D62C64C,$C27A24C9,$6ECF6257,$3D2759BD,$88E1DDDB,$E49D36B3,$CBEBD39E
  Data.l $14D8419F,$7B45053F,$5A3F5B81,$30FE3AD9,$4BD653BE,$EA7DB57C,$30242BAF,$57580D4F,$2DA9C272,$8DD18D8A,$23ACAA06,$ED96FE42
  Data.l $6D6BD338,$D6F04B2B,$79E4A329,$723CBAAE,$A40D1449,$F38F558A,$C0901A25,$00FFF31C,$5ABDE5B1,$1141320F,$DDA818AA,$8D707EAF
  Data.l $EF5F9D57,$FE97EF8F,$D7DD33B5,$CA778EF1,$472B055F,$85301FE5,$29BC9FFE,$9E630DF9,$5193DF7E,$D4B49403,$88BE1739,$45564992
  Data.l $0E551291,$6E768285,$3D74D853,$E1DEEBB9,$5BDD7288,$6234AFCE,$ED89D7CD,$D6CE92D3,$3CA1DB95,$4556A2AA,$7B19DBF9,$34593DFC
  Data.l $9992EBB6,$73BD20E3,$083A7E89,$966A9EE4,$6ABCDA91,$6C8F445A,$AD06A5FD,$E18D3CB4,$CF7572DE,$16A7953F,$80E2E749,$92866070
  Data.l $A0AF573D,$35411355,$914A5946,$65ED4CB8,$34D09BD5,$C1E6DAC4,$58B29C1E,$987925E7,$13731ABB,$AC65EFA9,$81F509EA,$674FF28F
  Data.l $039ED92B,$35F21A6A,$2CAB2679,$8B16F1DE,$13A4FB32,$D0575559,$28F1AEE8,$323BE271,$7AD6BD6F,$C579862C,$5EE0D608,$56E27DC8
  Data.l $1DC58EE9,$76147BAE,$CDEC350D,$13A97876,$4ADA3364,$538B4A36,$2C0B4AC7,$4475378E,$47EAC864,$AEDDE68E,$C14F7C5D,$CBAFE153
  Data.l $6A798D5E,$12F1628B,$85C6D268,$A0159BF6,$813D589A,$EE4A71F4,$B303BEA8,$CCD65E27,$1BA8A9D2,$A8D67170,$82190F5A,$9061E84A
  Data.l $3C535310,$DE3D6D84,$A433D7D8,$2952ABC5,$927A9AD8,$10640752,$48B4110B,$789AD906,$511ECA2D,$B5F1B4A7,$E89FE964,$79E565F8
  Data.l $B60CC260,$71CAB1A5,$B62F65EC,$0E92F05A,$3098A0BA,$4680F456,$3FF337B9,$2BC75824,$D347CCC1,$86D55E3B,$6F00D4A9,$1971588C
  Data.l $DB413292,$5B3B8622,$B8B7E6C0,$5B0C8999,$398EFD82,$CC53246E,$4986D32E,$95DD4867,$E5AAD8E4,$DBDD4699,$C7D7EE90,$1C99AD2F
  Data.l $0F5DF9B1,$F81F3755,$F87566D3,$F9A39AC2,$F31F1E24,$1C867F56,$B5F6E369,$DB323B2A,$DB6674E3,$92F41004,$1A460005,$98C8B4BC
  Data.l $FD953E0D,$88B7C3E9,$DBDAC4EC,$EB354460,$BFCB8DF2,$54CB8622,$AE5BECE2,$B194BA4B,$93628500,$A0B82BD9,$9D3DA063,$ACBACFB9
  Data.l $3DB39573,$55ADD62B,$4BC28A76,$748A6C67,$03596460,$D73E7D10,$E3DE767E,$98F7C52C,$E4E2D16A,$5AB8B834,$9EE365B5,$244B1B33
  Data.l $5CB769C3,$392B536D,$D9DBF655,$F4D19E1D,$73D3E19C,$94ADE16F,$4D8955FC,$E946718F,$CD10EFC3,$9C3FD036,$B15E4DB2,$DF416D8A
  Data.l $EDD8C91E,$5BE7F6F4,$ED4F96B5,$2DE5A730,$E91AF758,$78F96FD4,$F63A239D,$3A6A9785,$4E2AE8EB,$45E2B767,$5BD1EAED,$2C416CE4
  Data.l $D53054E9,$07E69366,$F5EE0A0A,$9EB5336A,$5B098FA8,$795AE73E,$D6EAE323,$2CF22DF6,$2CABD07A,$7A19C230,$50A5F760,$9C937854
  Data.l $AA679CB5,$4BF9A6D7,$A3878B85,$82044866,$C1ABD20B,$D04800D6,$465681C6,$A70C9D00,$23E8E973,$BB9D3CC7,$5EACB766,$01863667
  Data.l $F3566080,$417C619F,$D2973CE6,$FCD8FB5A,$74F77C25,$5B6E7FFC,$768EE539,$B4BC10D7,$24AF2275,$2993C4D2,$69228FB4,$9791D858
  Data.l $D5C87844,$C3D7ED49,$BE31B7BB,$F4C7B69C,$9FE5E0B2,$2CE45E32,$E9D53BA5,$49254DAB,$A92CEA15,$9D514BB7,$5EDF510F,$8EAF93EC
  Data.l $2867F2D3,$E33D7F75,$FD6BCC3F,$B7D7797C,$5F4B44C2,$4AF7AF63,$6A1E537F,$AF768878,$767FB4E4,$4EB6D6CF,$952F8CBF,$6AE51B97
  Data.l $4211E77C,$73A6AADD,$F00E4D1B,$95C0BEEC,$A7C30E98,$EFF29C7B,$3D722BB6,$6AE28123,$800E50F1,$2089B994,$421A6906,$925946B1
  Data.l $A0DCDD35,$B6E71CBB,$426AF9D6,$4FF6C73C,$E61592D3,$7F74FEB7,$A9F5BF7C,$8CBFEE9E,$3852BE73,$9E4BFA6F,$31FC67F9,$C96F3FCF
  Data.l $0FF3ADA8,$CBFBB5CF,$ECEB39FC,$123462F7,$F2933279,$57F79267,$B295124B,$585D4927,$7031DA4A,$BBF6EC75,$C7CEC373,$CBFC2B4C
  Data.l $CF7FF1C5,$B524CD92,$3DAAB3C8,$304396C7,$3A665D9A,$0A75C100,$20383377,$E103006E,$B74BAFD7,$4EAB5AAA,$6E59C538,$9BBDBE3D
  Data.l $076FEF6B,$12051CF3,$A47C47AC,$A85E6590,$C35EA77D,$DEB9BDAE,$DE61FB49,$7EA9F337,$F2F063E5,$638FFC63,$5FAAFD71,$0DFCDFB8
  Data.l $856FC79C,$8281F98E,$FB8F714D,$DE597FE9,$F1EC7406,$DB2F2C52,$518E78E3,$6C751B47,$90BCEBD1,$86D8B046,$F99715CD,$A291CB9F
  Data.l $5683E668,$51D729D4,$E7BAA6DD,$F4ECBD2E,$41FE61AB,$C690F368,$66C0D188,$8318220D,$46E34EC5,$12B16548,$4F95EC32,$0D9F2061
  Data.l $B6334D1B,$123D6DD2,$76B5187A,$B909238F,$0D772F46,$84E72805,$4B32F3C8,$1984B419,$ECED2E25,$3AA9DB05,$39C3832E,$512B4F75
  Data.l $4BABF878,$5A799057,$9AD773CC,$9C1E88BD,$89412982,$62B03B2E,$DD30BA57,$679B5CC7,$89C4A297,$5B09D66E,$28FEB58F,$D3CA0DD6
  Data.l $39FD7BD4,$5599781B,$A5C54883,$76CBF4E9,$F5B4F303,$33B3DDE2,$89A1A7FC,$62A51C89,$4D5F38BF,$E6AA5E3E,$2E527CFB,$78B4CA53
  Data.l $2BDF4F4E,$D1AC96D6,$43534CC8,$A72EAB33,$79AEEBC0,$8537F666,$8044E52D,$12DB1847,$92A2DA7B,$E716455B,$93C46A00,$ABE7F4A0
  Data.l $F9628C4F,$5AF24733,$B37A00FF,$D3E530FC,$28A7ECC7,$FC37577E,$73E3AC7F,$7CA97C3A,$FBBFE21F,$BF4BF2EF,$EF8E19F9,$FFBC8865
  Data.l $FE5CD300,$1FFB6FF6,$AC78763B,$DFCD9BC6,$26F74B98,$E15C5DFC,$B3B5E6D1,$6A7EC43F,$E3AF7A7F,$BE4DE7A9,$CA9EF253,$8BEC4F6E
  Data.l $93F883FB,$8BC46F27,$8F4E56EE,$596DD322,$FBC4523A,$B4AD6A1C,$8887D1A9,$286FDB39,$6E211F91,$66598E24,$DAEFD636,$7AA77016
  Data.l $93AD5E4B,$B307681B,$471C961C,$66B023FB,$66B6F77A,$0CBF3596,$899B58ED,$2F574EBF,$2AAD955A,$8E943A86,$1F4C4F40,$F9A8DB40
  Data.l $31DDC773,$736C355D,$C0004393,$DF792B30,$62F539B0,$FDBA2F0F,$022A2F59,$563C45D2,$F4D44019,$F591AE24,$8B64753F,$336AF469
  Data.l $72F1D3DB,$B76B0DD9,$2C992D17,$54EE757B,$B4785271,$47A6DD78,$3E30AB8C,$27B95EC9,$B3F1CDE4,$4700FF6C,$5EC76BB1,$939C9AF7
  Data.l $8E3A92D7,$EA6EC4D5,$A8A57257,$EF759D55,$D7A8D25D,$CCDF99D7,$BFAA90FC,$E69FF19E,$3CBEFE35,$8908BEBD,$FE75EC6B,$63EA4FE9
  Data.l $0E114FCD,$8F96FCD5,$D6FAD9EE,$85F1D7C9,$878FF4F2,$35CAA76A,$789F00F5,$3C67FCB1,$355D9E7D,$39D3B469,$1FF3A7B4,$584E3FD9
  Data.l $FED7E695,$BF7C7F74,$EE9EA9F5,$BE738CBF,$FA6F3852,$67F99E4B,$3FCF31FC,$ADA8C96F,$B5CF0FF3,$39FCCBFB,$62F7ECEB,$82FC6E3D
  Data.l $14192E0E,$F611440D,$676000FF,$9F7975CE,$66CD3225,$01C0ACE4,$F4A12E7A,$14C42A75,$36E9519F,$3F7E7A7B,$A1BC3DB7,$4AF817CB
  Data.l $A6D646CD,$69B53267,$588A4613,$10A47AE7,$5A6DF6C0,$AC3EA8CD,$A1361BD7,$A9F3379E,$F063E57E,$93FC63F2,$6A7FDCD8,$FF37EE97
  Data.l $31670300,$BE63E1DB,$DAD35260,$7100FF03,$8E45FD21,$48F7EC74,$C9CBD09A,$810C2B24,$AAB1BA0D,$346A1B19,$F044D0D5,$F79B3DB1
  Data.l $D507A145,$04595F97,$AA586567,$52198AD3,$B08441EC,$A6BAD114,$4095F02A,$ABB9DD35,$233DEAB3,$61B2A431,$FBF83469,$C7210F74
  Data.l $D09289D9,$F458D9E8,$19C2B224,$79A70B26,$7AEDC988,$CDD33834,$FFD13F85,$1E160C00,$72AD656D,$E149AD3E,$3566E3D1,$7263C2EC
  Data.l $DA43B00F,$B71CA01F,$B1CF365B,$96EE8BEC,$873C7A9A,$7C3FC545,$414A1AAF,$3748DADA,$B2007D10,$26277D8D,$2492DFDE,$4FB5F9C9
  Data.l $D5FA04F3,$478A6FC7,$54A9F9A8,$ED01A02E,$3C3A8667,$D000FFB6,$8B9F9BFE,$7CDA3D9F,$6BF29D63,$7AB8018E,$B7019DC0,$F6E81360
  Data.l $8FA7CB61,$FF944ED9,$CF8A0C00,$B156631B,$1E0FCCB9,$CA91148D,$F0765BF5,$8D5A347B,$92913EA8,$3BD4666B,$F918A3C4,$392274A9
  Data.l $1BEB5BB8,$3AC5D869,$CEE9E91A,$1DCBDE7D,$293FC7BD,$A415F462,$F7757B4F,$01C4E88A,$F4BBCA22,$3B49EB53,$B9B6D133,$CD6331CB
  Data.l $AE3995F2,$36A49241,$A435592B,$AAACD5AE,$926586AC,$63131B1B,$16922538,$A3CF3BDA,$656B7538,$B555B5B2,$452C1462,$5EBACDC9
  Data.l $E91E613E,$39DA0120,$E50CB160,$5D755D24,$AC077D45,$B9B54DE7,$E9F61495,$C9C6B55C,$E0992862,$481218AF,$B1BBB307,$DAF141D9
  Data.l $597DCCA8,$1689CF9E,$E7DADFBC,$00FFE4FD,$48769DBB,$7AF75659,$0D81869B,$F1E27F7D,$587F99F4,$BEBA9C53,$87ADB53F,$5EA5F3C2
  Data.l $A2F3036E,$84FC84B6,$CFE08F32,$F5967F3F,$438BB36D,$2230C000,$E6FD15F2,$46E2C5B3,$BC729707,$07ADB80D,$096F3C61,$AEBABD26
  Data.l $7F2D9E63,$7486C765,$333C7BD7,$DE387461,$1C44576A,$EF019BA4,$FABA156A,$AE8EE47D,$AE6BEBEF,$4EF6FB74,$52300F2B,$558B5AE4
  Data.l $5996D9EB,$99DC6084,$492FB38C,$9D1488C4,$5DD70100,$ED698F07,$6ECB5ECC,$D16A0657,$BB45D1E4,$CABCA296,$7103CAF1,$BC3241D0
  Data.l $92A12C52,$E2364A68,$37B84353,$6B6EAFC9,$2A66EB6E,$F8E24371,$E20852CE,$8AA5AE8D,$AD127BB5,$C1093ACE,$33A24E8D,$DF36A936
  Data.l $CBEA71DD,$B938EC3B,$9A3C70C4,$E45769C8,$97F7348C,$F5716C58,$D396AAED,$A536D376,$B7DB6943,$59F79A4C,$6F7A7130,$17A7C70D
  Data.l $6544ADC7,$3B49D26D,$18A5D3F4,$08B15869,$8F6A9F9B,$B9FCB801,$72B37DCB,$95D989D4,$19867954,$31C2A425,$C4A801AB,$8C4B731E
  Data.l $D1D41EE6,$5835C847,$E9A699A7,$C5BD464D,$14377D57,$5DB78333,$7D67BA06,$6398AC7B,$E195F78A,$58C4A767,$B22C1BAF,$D04E1A5E
  Data.l $D1A72B40,$8358B508,$D4405238,$B8D774E8,$F2DBC60C,$70215CB9,$F9E45F7E,$E4DE1004,$991E9EA3,$1BC79285,$AEB44903,$C9EA44C0
  Data.l $341FE536,$EE75F996,$4E7D9FCE,$AAE4402F,$B47B68F5,$1188907A,$46D1EF75,$B6F35C83,$45BCCBF2,$D134AFF8,$909D62CB,$7D687D04
  Data.l $500774A5,$C4DEC4B2,$6783AF8B,$BE2E3B5D,$73AFB019,$DC40DFE5,$20208B9C,$AB8F8FA1,$A4BE7E14,$FE64A148,$F6FB74D6,$E359254E
  Data.l $90D01339,$0776095C,$D4CA1D2F,$36E4AE21,$1989AC80,$3BE8BA11,$AE13DF06,$71FA3EB9,$BB89974A,$56EF4FEE,$2CD2B623,$848A248A
  Data.l $2C512635,$BACB4032,$B6CBAA02,$27657462,$4D463B50,$A4986DBB,$2F3CCAD5,$ADAB6A2F,$46DCD1AB,$6329A185,$A349808E,$C2E24D21
  Data.l $8E7A9714,$C1FA58E2,$C5E97BCB,$751DDF0E,$5AB3D86F,$D66C3C4B,$21CEEA64,$BFF25A02,$FF5DC9ED,$BFC79600,$6DAF33BF,$1C170B9E
  Data.l $9BCD1D1F,$26E5392B,$ADC2BD5D,$FB5BF44A,$43FB0A4D,$BF5773D4,$3F278A63,$6169DAC3,$95621259,$F1B49E59,$6EC4C248,$CB3A73C7
  Data.l $DDCC6DA9,$9CF39EA4,$5CF5F8E6,$F9E35423,$9C4658A9,$F9759BA4,$B3FA38D6,$79AEA7CD,$5E9F9001,$4EF6FB74,$977A2E2B,$BA77FC24
  Data.l $25569B3D,$B524D678,$95786F2B,$8DB44965,$F1EA027B,$41273EA9,$1733D8DB,$C295DBB2,$FBE5034F,$7959E4D7,$293B423E,$71831DBD
  Data.l $643843D0,$4F729375,$4ADC4611,$F9064BE8,$DF6DCD35,$AB49C56C,$E578E64F,$4334AB9E,$38A31D57,$5671DEC6,$95112987,$568DFE4D
  Data.l $58E8E599,$A9DA5EA1,$0F38B791,$3E01DC28,$BDB6338D,$75314CD6,$CB9A8F07,$C4C6AD5B,$64172C6D,$67B4D291,$85211644,$918198FD
  Data.l $0B063795,$F9DD3DA9,$9FB9EAE8,$54FA69B6,$94756B39,$A9B86547,$6AD232A9,$D3194A8D,$75721441,$CC1E2619,$6631D28C,$CE8E39EF
  Data.l $59B8B5DD,$5C72D132,$7A9C2077,$7649D3C8,$5E4084D0,$10515445,$D048943A,$F6C45005,$33407EFA,$DA65BFCF,$2923B5FA,$A1E48B43
  Data.l $F9B55A2B,$6AA3C0EA,$37AC6643,$BAAE31D2,$EC00EF45,$9BE1DE5E,$9C48DB9D,$07971C56,$5CE9533B,$26B8BB44,$B4AED7B2,$CC6C749B
  Data.l $9488EDB2,$1AA10E12,$199E1DA8,$E2B4ED36,$348F5E87,$9C7C64E7,$DA8D77E7,$0FCAEE55,$F982D3F7,$8A63BFAF,$4A2EF5EA,$9AD7283E
  Data.l $A3DBABCD,$90EA3596,$66BC3E12,$5DE26827,$20C64E15,$773A017A,$97DDC69C,$BF222B6F,$9979E389,$90634D04,$B4C1CA8E,$95F16D18
  Data.l $0D2AEAE5,$A4C0BC02,$8777B0C7,$FF9BD7D7,$E264A300,$8A9CF160,$6EA955DF,$82D04B4A,$45EBBBBC,$DD3D396E,$63C85104,$100C549B
  Data.l $5E67AE69,$EA82AFDB,$815B79DD,$6D698993,$4B9EB4BD,$2C732C31,$CAA25235,$92248B55,$F5A63322,$0A6CC0DC,$E6A03D34,$2C393B7B
  Data.l $9B736898,$30C00043,$AFA4060C,$013D9F0C,$AF54E2C0,$0350D519,$432BD981,$7050CF27,$03572A12,$00A6C16E,$C81DD629,$5DA90530
  Data.l $0F40E50E,$ECEE01A7,$9125E00E,$51C3685C,$58A5D080,$5F83E036,$08DE024E,$415D1BA4,$B48E1C18,$851A7D31,$EF1C30F9,$57EA69C0
  Data.l $09C8EA90,$D5B84FC0,$3F7600FF,$56690056,$058CF13D,$DAC8951A,$D4816950,$887D04AD,$A9256080,$46AB73D6,$415AC009,$40317F14
  Data.l $A4081EC0,$020EEAF9,$3A649D16,$051C60AC,$EC64683D,$B1030774,$465F14C1,$054C7EA1,$188D2B3A,$B92B306A,$EB192E2E,$39804632
  Data.l $5418F81D,$576B2DF2,$8A4A5EDA,$2C400C5A,$0E3A445A,$7319F3C1,$F70D935C,$A151C51D,$4504455C,$C9982141,$AAC4CA23,$2BAF2EAA
  Data.l $81A8683B,$0DB0D740,$91955B32,$1B46A331,$327A0448,$AEC6BD06,$5C63BABB,$B0F09A05,$801150DA,$4E59A595,$02AE31A2,$362EBC9E
  Data.l $123082B2,$CDA72B95,$4A033040,$06DB6DB1,$95079CBE,$348A4655,$30C01D18,$C000030C,$00030C30,$030C30C0,$0C30C000,$30C00003
  Data.l $C000030C,$00030C30,$030C30C0,$3830C000,$8F0DD8DD,$EEE0809D,$8001EEC0,$01061860,$06186080,$7F608001
  Data.b $FF,$D9
  ;}
EndDataSection ;<
;}
;{ Image Plugins
UseJPEGImageDecoder()
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_AR_S()
  If OpenWindow(#AR_S, 252, 305, 321, 296, "Ar-S Chr transcriptor", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#AR_S))
      EditorGadget(#Afficheur, 5, 95, 310, 30)
      EditorGadget(#Afficheur_Chr, 5, 150, 310, 140)
      TextGadget(#Info2, 75, 70, 165, 15, "Ecriver le texte à transformer", #PB_Text_Center)
      ImageGadget(#Image_titre, 5, 5, 320, 55, CatchImage(#Image_Image_4, ?Image_Image_4))
      ButtonGadget(#About, 290, 65, 20, 20, "?")
      ButtonGadget(#Transforme, 5, 127, 250, 20, "Transformer en ASCII")
      ButtonGadget(#Copier, 260, 127, 55, 20, "Copier")
    EndIf
  EndIf
EndProcedure

Procedure.s Str2Asc(Text.s)
  Repeat
    Ret.s+"chr("+Str(PeekC(@Text+n))+")+"
    n+1
  Until PeekB(@Text+n)=0
  ProcedureReturn Ret
EndProcedure

OpenWindow_AR_S()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Afficheur
      ElseIf EventGadget = #Afficheur_Chr
      ElseIf EventGadget = #Info2
      ElseIf EventGadget = #Image_titre
      ElseIf EventGadget = #About
      MessageRequester ( "A Propos" , "               CHR TRANSCRIPTOR 1.0"+Chr(10)+Chr(10)+"Réalisé par Cyrille Landivier"+Chr(10)+"Plus de logiciels sur http://arsworld.free.fr",0)
      ElseIf EventGadget = #Transforme
        touche$=GetGadgetText (#Afficheur)
        SetGadgetText (#Afficheur_Chr,Str2Asc(touche$))
      ElseIf EventGadget = #Copier
        ascii$=GetGadgetText(#Afficheur_Chr)
        SetClipboardText(ascii$)
        MessageRequester ("info","Le code Ascii est copié dans le presse papier")
      EndIf
      ; //////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #AR_S
        CloseWindow(#AR_S)
        ClearClipboard()
        Break
      EndIf
  EndSelect
ForEver
;
;}
Haut
brossden
Messages : 821
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Je te propose une petite modif pour l'affichage uniquement !

Les lignes modifiées sont repérées !

Code : Tout sélectionner

; Par LANDIVIER Cyrille / 2007

;- Enumerations / DataSections
;{- Windows
Enumeration
  #AR_S
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Afficheur
  #Afficheur_Chr
  #Info2
  #Image_titre
  #About
  #Transforme
  #Copier
EndEnumeration
;}
;{ Images
Enumeration
  #Image_Image_4
EndEnumeration
;}
;{ Included Images
DataSection ;>
  Image_Image_4:
  
  Data.l $E0FFD8FF,$464A1000,$01004649,$64000002,$00006400,$1100ECFF,$6B637544,$00010079,$00000004,$FF00003B,$410E00EE,$65626F64
  Data.l $00C06400,$FF010000,$008400DB,$05050507,$05070505,$06090705,$0B090605,$08070708,$0A0A0D0B,$0D0A0A0B,$0C0C0C10,$100C0C0C
  Data.l $100F0E0C,$140C0E0F,$14151514,$1C1C1D14,$20201D1C,$20202020,$20202020,$07070701,$190D0C0D,$1B191010,$1B161216,$20202020
  Data.l $20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$20202020,$00C0FF20
  Data.l $39000811,$01034401,$11020011,$01110301,$9C00C4FF,$05010000,$00000101,$00000000,$00000000,$03020000,$01060504,$01010107
  Data.l $01010101,$00000000,$00000000,$01000000,$05040302,$02020010,$04010301,$07060805,$00000905,$03020100,$12110004,$31211305
  Data.l $61510641,$71071422,$34B33332,$8135B474,$B2725291,$82624223,$17751573,$248353A1,$A3C2B136,$9454D3C3,$01115545,$02020001
  Data.l $02020401,$00000103,$00000000,$12021101,$41213103,$81711332,$04426151,$DAFF2214,$01030C00,$03110200,$003F0011,$D8E4CCF5
  Data.l $F2C989C0,$5B0B6FDC,$FA39F9DE,$55C51E31,$FAC7EE52,$949FA0A8,$96130FF7,$CF5A6A6B,$2F9FC427,$4B43C4CA,$74309694,$DA78A5EB
  Data.l $DDF9353D,$F4D3EE92,$9FCEEA6B,$71C9C94E,$6B78990F,$B4F2635C,$C5707B65,$083C7024,$4C1327BB,$52461AEB,$59521853,$7A2069C7
  Data.l $702E1CF3,$F85655B9,$B3D9C08B,$72BAB75A,$54EEFD55,$86A73986,$3AF71631,$7325A52E,$5733E0E3,$E494C9AA,$23A111D5,$73DA9CD1
  Data.l $2030C000,$3ED5FC72,$69B3B012,$F2769F25,$640857B1,$1D991A2B,$5FA35187,$DB935465,$6D5D6BAE,$45E196F0,$7F70A5FE,$FF3167FE
  Data.l $FF87C700,$F4375F00,$2827FCED,$C097F8E1,$1EA5DE2E,$0B660452,$820896D5,$4C3A7D02,$970CF5C7,$6B7268AB,$53B17699,$73DA9CE1
  Data.l $0C30C000,$30C00003,$C000030C,$69000C30,$5CB307A8,$3FDFD50C,$3D2CD470,$D8C8A567,$6B49BB29,$C1C60BC5,$1A66A31D,$F806ACCC
  Data.l $77407BD8,$B5D54967,$E7926799,$732AE589,$AD1C6C7C,$B1D62211,$02CA6ABB,$18C528B8,$61870530,$B398035F,$81CC440D,$780DCB12
  Data.l $883BB164,$C84B85E0,$8D2AB8E7,$6FA3C049,$2439793E,$18C9C930,$C9D856E6,$B5496B25,$DD86D0B5,$EFA1DB10,$A97435D7,$1C1AF995
  Data.l $6D068CCA,$4B95865A,$20126C17,$CB9314A9,$22DB6AB4,$F1A0ED52,$DC0C0C3A,$687811BF,$E3257825,$4CAC6E39,$60D8BED1,$42A7DC75
  Data.l $4FE52C03,$BFCEF068,$3CC3DF4E,$21FE75A1,$026776F9,$1D871CC4,$DB13EC11,$FA5A3AAE,$1F294FCC,$5BBD64A4,$4B93634F,$86D8B014
  Data.l $49A4353B,$A3BB4CEB,$19193296,$3923884F,$800156B4,$5A0C1860,$C884579C,$D73C307C,$BC8C1CCD,$214B8B85,$45ED38D6,$91FA631C
  Data.l $FC0249D7,$BE99499D,$ED193D5D,$73F99FE8,$9596CADB,$7825EBBD,$ADA448E2,$65CFCC5A,$75DEF347,$891BCB12,$10847A7E,$87BDDA85
  Data.l $9B74AE53,$67FAE37A,$EDFCFB0E,$DBDE0ECC,$FF2C49A9,$B8A55C00,$B51F319C,$C6DC0EEC,$B02800FF,$22C9C2E2,$C7558872,$E529721B
  Data.l $1E597083,$743B9035,$F60910F7,$99EB7B73,$7E953652,$F7384725,$968643CE,$07B8179F,$67EB04B7,$BE412761,$CF309130,$CBB8E82D
  Data.l $FC6E27A7,$5AF67A42,$5F4A5C3A,$219564AA,$B7882EB0,$7578A588,$3790D02A,$180DF718,$D76424FB,$EC92D9A2,$964AFD67,$7EA5D649
  Data.l $9FDEDE01,$22EE8DCC,$2284DE68,$CFFE0F36,$F5FC2F93,$2F9C3439,$15CC473F,$49A296A7,$1137CD5E,$0238AB5B,$A6839C48,$3A0812BA
  Data.l $39AB0F1D,$D597AD6D,$79C772A9,$B1D8AEBD,$29890559,$B0FA6935,$50D648D8,$0C46A9A4,$ABC0D88D,$69CDA169,$58622EB6,$6987DCCE
  Data.l $59D29D89,$C96BB6CC,$65A5703C,$54204194,$22408C7E,$3DC31F9D,$5CC95C9A,$A386C7EA,$5FC2231F,$7ABD5ABA,$52694D7C,$49747FC5
  Data.l $11EBB067,$2C5BE695,$787224CB,$E851ED28,$B2B3CB39,$68A446CF,$718BF8E6,$F00B4B2D,$C885200B,$A7BEE291,$64A15355,$46328257
  Data.l $355DA39D,$EAF55FCC,$E25F37F3,$92BCBC57,$E3310527,$34CDD4E0,$44E65176,$28D0ED1D,$FABFDFBD,$1C1B7D72,$DFBC9797,$A0E252C2
  Data.l $DC32E3E5,$4862DC82,$FD468523,$FB0D8A19,$D4F6858A,$7450A7AF,$D7EB3907,$D650596B,$B93597F8,$03F855BA,$167BDC20,$8F8A75EA
  Data.l $1D881111,$F4D7F074,$BDFE49E7,$5FCE9267,$C7CD713D,$A435AAB5,$1852F496,$B7ECE3A7,$2C1BC9BB,$30434E32,$C272BE59,$A71D34DB
  Data.l $579D99D1,$CF4A5E38,$E34832F5,$0CF0EC69,$78400090,$DFBEA4AE,$52D26180,$E4B7AF07,$9C8A5ECD,$00FFF892,$D04E3088,$938C5F9E
  Data.l $C46DAB8A,$96595B50,$B8DB3BCC,$4F190B39,$D36D72D4,$92CDCA64,$3D00FF39,$CD1CBC71,$72B31A56,$90BA9036,$E816A5A7,$A18E63DB
  Data.l $05D64E0C,$A0460A49,$9D19758D,$C82EAD7A,$1B23BE54,$C1B3A601,$FE281DCD,$52967A92,$64E941D9,$F483160B,$C946EFE6,$CD7779C9
  Data.l $2A2E2D1C,$F6A8630E,$A58DDB6A,$DEA9B0AE,$162BA4C8,$5620B4DD,$3BED4E21,$9EF33B7B,$CB5A5BBA,$E9C41F37,$5BA59B27,$DA023281
  Data.l $1CA97B20,$D1767FA4,$CEB5FA77,$C9B3A293,$789D1771,$29D9EAE9,$ADFC5A5E,$3A7E0843,$96B6E8E1,$FDEA4A27,$810D1245,$02C45DA5
  Data.l $7A31A347,$C9ABB8AC,$A7129F54,$5FFEB4D4,$4A7F042B,$7547DDD1,$9398DD1F,$FF9BD7C7,$23A79E00,$5B23E263,$889BD988,$8D1CA79A
  Data.l $3AC3ADB5,$E82464D8,$19D9E2BB,$BCFEF403,$3919177D,$E6A7D731,$B899DEA8,$E2DBEBE9,$B8354D6C,$791DB5A3,$EA4C6B97,$96B174E3
  Data.l $74329A01,$F7D0EE46,$C9395DE7,$70338C31,$775EF0D4,$5211A79A,$2D152EBD,$58B2A599,$2C5CA125,$445A27CD,$3439DA48,$4DC0758C
  Data.l $9F339D5C,$6BF576D5,$E29B1396,$A7D85257,$599A824B,$732C0154,$57644859,$6CAA92FE,$7678FA70,$4EB2FAF6,$9873728A,$D7F837F3
  Data.l $1D8F7215,$967A7F42,$49D58217,$2D6245D8,$91E86EE3,$F25EBD44,$3E607747,$6E7A8D83,$B9985D70,$BEDF3CE3,$2674722C,$569224B3
  Data.l $BDAD26AF,$C8F4D8DD,$1BBD7D5D,$CEAEE7F5,$D4E86159,$D114EF3C,$8D6B6EDD,$809E889F,$8CFB4A8B,$649128CF,$0E29A83A,$9258089A
  Data.l $CFF1007B,$5C56DD16,$27954D3A,$6E5687E2,$CA0C3E9D,$3D8D4D87,$5FDB81C4,$FDDF18EA,$45A7E684,$9E72454E,$E3978767,$097D4A39
  Data.l $8FE3DBF8,$C852CDB6,$1C08BA1A,$50D78D96,$DDDB01C0,$EBAEDB99,$479673E5,$91D36895,$B03A9977,$2319B1A4,$0AE88DD4,$68475DEE
  Data.l $BB6776D4,$61672E6F,$840E62BB,$16E288F1,$C2D0BA19,$391E389D,$1561AF21,$B0AFD4A2,$DEDD942C,$E6F60440,$2533DF74,$09C3778D
  Data.l $932B6EA4,$EAB54EA8,$FE022DDC,$541D94C8,$734DB57A,$5D3DDDC7,$93F36C35,$30C00043,$A5C3792B,$631EC417,$AF257DC9,$57C28FBD
  Data.l $C74F77CF,$1FB2E5F6,$704FC611,$D452B75B,$78D3EC94,$B346BA0A,$286B2502,$CBFEE8CA,$1E9ABD02,$B5D9E7CC,$93C56CD7,$3AA9592B
  Data.l $B15C9240,$5A51AB15,$3A9263A8,$46935351,$639512B3,$E3CB0A09,$E3EBBADA,$B5CB5E93,$614CFE99,$9C8C9C02,$949078C5,$460AB36B
  Data.l $1249D064,$692391D8,$D90E6222,$6FED5815,$D6BEEF0C,$1D62C64C,$C27A24C9,$6ECF6257,$3D2759BD,$88E1DDDB,$E49D36B3,$CBEBD39E
  Data.l $14D8419F,$7B45053F,$5A3F5B81,$30FE3AD9,$4BD653BE,$EA7DB57C,$30242BAF,$57580D4F,$2DA9C272,$8DD18D8A,$23ACAA06,$ED96FE42
  Data.l $6D6BD338,$D6F04B2B,$79E4A329,$723CBAAE,$A40D1449,$F38F558A,$C0901A25,$00FFF31C,$5ABDE5B1,$1141320F,$DDA818AA,$8D707EAF
  Data.l $EF5F9D57,$FE97EF8F,$D7DD33B5,$CA778EF1,$472B055F,$85301FE5,$29BC9FFE,$9E630DF9,$5193DF7E,$D4B49403,$88BE1739,$45564992
  Data.l $0E551291,$6E768285,$3D74D853,$E1DEEBB9,$5BDD7288,$6234AFCE,$ED89D7CD,$D6CE92D3,$3CA1DB95,$4556A2AA,$7B19DBF9,$34593DFC
  Data.l $9992EBB6,$73BD20E3,$083A7E89,$966A9EE4,$6ABCDA91,$6C8F445A,$AD06A5FD,$E18D3CB4,$CF7572DE,$16A7953F,$80E2E749,$92866070
  Data.l $A0AF573D,$35411355,$914A5946,$65ED4CB8,$34D09BD5,$C1E6DAC4,$58B29C1E,$987925E7,$13731ABB,$AC65EFA9,$81F509EA,$674FF28F
  Data.l $039ED92B,$35F21A6A,$2CAB2679,$8B16F1DE,$13A4FB32,$D0575559,$28F1AEE8,$323BE271,$7AD6BD6F,$C579862C,$5EE0D608,$56E27DC8
  Data.l $1DC58EE9,$76147BAE,$CDEC350D,$13A97876,$4ADA3364,$538B4A36,$2C0B4AC7,$4475378E,$47EAC864,$AEDDE68E,$C14F7C5D,$CBAFE153
  Data.l $6A798D5E,$12F1628B,$85C6D268,$A0159BF6,$813D589A,$EE4A71F4,$B303BEA8,$CCD65E27,$1BA8A9D2,$A8D67170,$82190F5A,$9061E84A
  Data.l $3C535310,$DE3D6D84,$A433D7D8,$2952ABC5,$927A9AD8,$10640752,$48B4110B,$789AD906,$511ECA2D,$B5F1B4A7,$E89FE964,$79E565F8
  Data.l $B60CC260,$71CAB1A5,$B62F65EC,$0E92F05A,$3098A0BA,$4680F456,$3FF337B9,$2BC75824,$D347CCC1,$86D55E3B,$6F00D4A9,$1971588C
  Data.l $DB413292,$5B3B8622,$B8B7E6C0,$5B0C8999,$398EFD82,$CC53246E,$4986D32E,$95DD4867,$E5AAD8E4,$DBDD4699,$C7D7EE90,$1C99AD2F
  Data.l $0F5DF9B1,$F81F3755,$F87566D3,$F9A39AC2,$F31F1E24,$1C867F56,$B5F6E369,$DB323B2A,$DB6674E3,$92F41004,$1A460005,$98C8B4BC
  Data.l $FD953E0D,$88B7C3E9,$DBDAC4EC,$EB354460,$BFCB8DF2,$54CB8622,$AE5BECE2,$B194BA4B,$93628500,$A0B82BD9,$9D3DA063,$ACBACFB9
  Data.l $3DB39573,$55ADD62B,$4BC28A76,$748A6C67,$03596460,$D73E7D10,$E3DE767E,$98F7C52C,$E4E2D16A,$5AB8B834,$9EE365B5,$244B1B33
  Data.l $5CB769C3,$392B536D,$D9DBF655,$F4D19E1D,$73D3E19C,$94ADE16F,$4D8955FC,$E946718F,$CD10EFC3,$9C3FD036,$B15E4DB2,$DF416D8A
  Data.l $EDD8C91E,$5BE7F6F4,$ED4F96B5,$2DE5A730,$E91AF758,$78F96FD4,$F63A239D,$3A6A9785,$4E2AE8EB,$45E2B767,$5BD1EAED,$2C416CE4
  Data.l $D53054E9,$07E69366,$F5EE0A0A,$9EB5336A,$5B098FA8,$795AE73E,$D6EAE323,$2CF22DF6,$2CABD07A,$7A19C230,$50A5F760,$9C937854
  Data.l $AA679CB5,$4BF9A6D7,$A3878B85,$82044866,$C1ABD20B,$D04800D6,$465681C6,$A70C9D00,$23E8E973,$BB9D3CC7,$5EACB766,$01863667
  Data.l $F3566080,$417C619F,$D2973CE6,$FCD8FB5A,$74F77C25,$5B6E7FFC,$768EE539,$B4BC10D7,$24AF2275,$2993C4D2,$69228FB4,$9791D858
  Data.l $D5C87844,$C3D7ED49,$BE31B7BB,$F4C7B69C,$9FE5E0B2,$2CE45E32,$E9D53BA5,$49254DAB,$A92CEA15,$9D514BB7,$5EDF510F,$8EAF93EC
  Data.l $2867F2D3,$E33D7F75,$FD6BCC3F,$B7D7797C,$5F4B44C2,$4AF7AF63,$6A1E537F,$AF768878,$767FB4E4,$4EB6D6CF,$952F8CBF,$6AE51B97
  Data.l $4211E77C,$73A6AADD,$F00E4D1B,$95C0BEEC,$A7C30E98,$EFF29C7B,$3D722BB6,$6AE28123,$800E50F1,$2089B994,$421A6906,$925946B1
  Data.l $A0DCDD35,$B6E71CBB,$426AF9D6,$4FF6C73C,$E61592D3,$7F74FEB7,$A9F5BF7C,$8CBFEE9E,$3852BE73,$9E4BFA6F,$31FC67F9,$C96F3FCF
  Data.l $0FF3ADA8,$CBFBB5CF,$ECEB39FC,$123462F7,$F2933279,$57F79267,$B295124B,$585D4927,$7031DA4A,$BBF6EC75,$C7CEC373,$CBFC2B4C
  Data.l $CF7FF1C5,$B524CD92,$3DAAB3C8,$304396C7,$3A665D9A,$0A75C100,$20383377,$E103006E,$B74BAFD7,$4EAB5AAA,$6E59C538,$9BBDBE3D
  Data.l $076FEF6B,$12051CF3,$A47C47AC,$A85E6590,$C35EA77D,$DEB9BDAE,$DE61FB49,$7EA9F337,$F2F063E5,$638FFC63,$5FAAFD71,$0DFCDFB8
  Data.l $856FC79C,$8281F98E,$FB8F714D,$DE597FE9,$F1EC7406,$DB2F2C52,$518E78E3,$6C751B47,$90BCEBD1,$86D8B046,$F99715CD,$A291CB9F
  Data.l $5683E668,$51D729D4,$E7BAA6DD,$F4ECBD2E,$41FE61AB,$C690F368,$66C0D188,$8318220D,$46E34EC5,$12B16548,$4F95EC32,$0D9F2061
  Data.l $B6334D1B,$123D6DD2,$76B5187A,$B909238F,$0D772F46,$84E72805,$4B32F3C8,$1984B419,$ECED2E25,$3AA9DB05,$39C3832E,$512B4F75
  Data.l $4BABF878,$5A799057,$9AD773CC,$9C1E88BD,$89412982,$62B03B2E,$DD30BA57,$679B5CC7,$89C4A297,$5B09D66E,$28FEB58F,$D3CA0DD6
  Data.l $39FD7BD4,$5599781B,$A5C54883,$76CBF4E9,$F5B4F303,$33B3DDE2,$89A1A7FC,$62A51C89,$4D5F38BF,$E6AA5E3E,$2E527CFB,$78B4CA53
  Data.l $2BDF4F4E,$D1AC96D6,$43534CC8,$A72EAB33,$79AEEBC0,$8537F666,$8044E52D,$12DB1847,$92A2DA7B,$E716455B,$93C46A00,$ABE7F4A0
  Data.l $F9628C4F,$5AF24733,$B37A00FF,$D3E530FC,$28A7ECC7,$FC37577E,$73E3AC7F,$7CA97C3A,$FBBFE21F,$BF4BF2EF,$EF8E19F9,$FFBC8865
  Data.l $FE5CD300,$1FFB6FF6,$AC78763B,$DFCD9BC6,$26F74B98,$E15C5DFC,$B3B5E6D1,$6A7EC43F,$E3AF7A7F,$BE4DE7A9,$CA9EF253,$8BEC4F6E
  Data.l $93F883FB,$8BC46F27,$8F4E56EE,$596DD322,$FBC4523A,$B4AD6A1C,$8887D1A9,$286FDB39,$6E211F91,$66598E24,$DAEFD636,$7AA77016
  Data.l $93AD5E4B,$B307681B,$471C961C,$66B023FB,$66B6F77A,$0CBF3596,$899B58ED,$2F574EBF,$2AAD955A,$8E943A86,$1F4C4F40,$F9A8DB40
  Data.l $31DDC773,$736C355D,$C0004393,$DF792B30,$62F539B0,$FDBA2F0F,$022A2F59,$563C45D2,$F4D44019,$F591AE24,$8B64753F,$336AF469
  Data.l $72F1D3DB,$B76B0DD9,$2C992D17,$54EE757B,$B4785271,$47A6DD78,$3E30AB8C,$27B95EC9,$B3F1CDE4,$4700FF6C,$5EC76BB1,$939C9AF7
  Data.l $8E3A92D7,$EA6EC4D5,$A8A57257,$EF759D55,$D7A8D25D,$CCDF99D7,$BFAA90FC,$E69FF19E,$3CBEFE35,$8908BEBD,$FE75EC6B,$63EA4FE9
  Data.l $0E114FCD,$8F96FCD5,$D6FAD9EE,$85F1D7C9,$878FF4F2,$35CAA76A,$789F00F5,$3C67FCB1,$355D9E7D,$39D3B469,$1FF3A7B4,$584E3FD9
  Data.l $FED7E695,$BF7C7F74,$EE9EA9F5,$BE738CBF,$FA6F3852,$67F99E4B,$3FCF31FC,$ADA8C96F,$B5CF0FF3,$39FCCBFB,$62F7ECEB,$82FC6E3D
  Data.l $14192E0E,$F611440D,$676000FF,$9F7975CE,$66CD3225,$01C0ACE4,$F4A12E7A,$14C42A75,$36E9519F,$3F7E7A7B,$A1BC3DB7,$4AF817CB
  Data.l $A6D646CD,$69B53267,$588A4613,$10A47AE7,$5A6DF6C0,$AC3EA8CD,$A1361BD7,$A9F3379E,$F063E57E,$93FC63F2,$6A7FDCD8,$FF37EE97
  Data.l $31670300,$BE63E1DB,$DAD35260,$7100FF03,$8E45FD21,$48F7EC74,$C9CBD09A,$810C2B24,$AAB1BA0D,$346A1B19,$F044D0D5,$F79B3DB1
  Data.l $D507A145,$04595F97,$AA586567,$52198AD3,$B08441EC,$A6BAD114,$4095F02A,$ABB9DD35,$233DEAB3,$61B2A431,$FBF83469,$C7210F74
  Data.l $D09289D9,$F458D9E8,$19C2B224,$79A70B26,$7AEDC988,$CDD33834,$FFD13F85,$1E160C00,$72AD656D,$E149AD3E,$3566E3D1,$7263C2EC
  Data.l $DA43B00F,$B71CA01F,$B1CF365B,$96EE8BEC,$873C7A9A,$7C3FC545,$414A1AAF,$3748DADA,$B2007D10,$26277D8D,$2492DFDE,$4FB5F9C9
  Data.l $D5FA04F3,$478A6FC7,$54A9F9A8,$ED01A02E,$3C3A8667,$D000FFB6,$8B9F9BFE,$7CDA3D9F,$6BF29D63,$7AB8018E,$B7019DC0,$F6E81360
  Data.l $8FA7CB61,$FF944ED9,$CF8A0C00,$B156631B,$1E0FCCB9,$CA91148D,$F0765BF5,$8D5A347B,$92913EA8,$3BD4666B,$F918A3C4,$392274A9
  Data.l $1BEB5BB8,$3AC5D869,$CEE9E91A,$1DCBDE7D,$293FC7BD,$A415F462,$F7757B4F,$01C4E88A,$F4BBCA22,$3B49EB53,$B9B6D133,$CD6331CB
  Data.l $AE3995F2,$36A49241,$A435592B,$AAACD5AE,$926586AC,$63131B1B,$16922538,$A3CF3BDA,$656B7538,$B555B5B2,$452C1462,$5EBACDC9
  Data.l $E91E613E,$39DA0120,$E50CB160,$5D755D24,$AC077D45,$B9B54DE7,$E9F61495,$C9C6B55C,$E0992862,$481218AF,$B1BBB307,$DAF141D9
  Data.l $597DCCA8,$1689CF9E,$E7DADFBC,$00FFE4FD,$48769DBB,$7AF75659,$0D81869B,$F1E27F7D,$587F99F4,$BEBA9C53,$87ADB53F,$5EA5F3C2
  Data.l $A2F3036E,$84FC84B6,$CFE08F32,$F5967F3F,$438BB36D,$2230C000,$E6FD15F2,$46E2C5B3,$BC729707,$07ADB80D,$096F3C61,$AEBABD26
  Data.l $7F2D9E63,$7486C765,$333C7BD7,$DE387461,$1C44576A,$EF019BA4,$FABA156A,$AE8EE47D,$AE6BEBEF,$4EF6FB74,$52300F2B,$558B5AE4
  Data.l $5996D9EB,$99DC6084,$492FB38C,$9D1488C4,$5DD70100,$ED698F07,$6ECB5ECC,$D16A0657,$BB45D1E4,$CABCA296,$7103CAF1,$BC3241D0
  Data.l $92A12C52,$E2364A68,$37B84353,$6B6EAFC9,$2A66EB6E,$F8E24371,$E20852CE,$8AA5AE8D,$AD127BB5,$C1093ACE,$33A24E8D,$DF36A936
  Data.l $CBEA71DD,$B938EC3B,$9A3C70C4,$E45769C8,$97F7348C,$F5716C58,$D396AAED,$A536D376,$B7DB6943,$59F79A4C,$6F7A7130,$17A7C70D
  Data.l $6544ADC7,$3B49D26D,$18A5D3F4,$08B15869,$8F6A9F9B,$B9FCB801,$72B37DCB,$95D989D4,$19867954,$31C2A425,$C4A801AB,$8C4B731E
  Data.l $D1D41EE6,$5835C847,$E9A699A7,$C5BD464D,$14377D57,$5DB78333,$7D67BA06,$6398AC7B,$E195F78A,$58C4A767,$B22C1BAF,$D04E1A5E
  Data.l $D1A72B40,$8358B508,$D4405238,$B8D774E8,$F2DBC60C,$70215CB9,$F9E45F7E,$E4DE1004,$991E9EA3,$1BC79285,$AEB44903,$C9EA44C0
  Data.l $341FE536,$EE75F996,$4E7D9FCE,$AAE4402F,$B47B68F5,$1188907A,$46D1EF75,$B6F35C83,$45BCCBF2,$D134AFF8,$909D62CB,$7D687D04
  Data.l $500774A5,$C4DEC4B2,$6783AF8B,$BE2E3B5D,$73AFB019,$DC40DFE5,$20208B9C,$AB8F8FA1,$A4BE7E14,$FE64A148,$F6FB74D6,$E359254E
  Data.l $90D01339,$0776095C,$D4CA1D2F,$36E4AE21,$1989AC80,$3BE8BA11,$AE13DF06,$71FA3EB9,$BB89974A,$56EF4FEE,$2CD2B623,$848A248A
  Data.l $2C512635,$BACB4032,$B6CBAA02,$27657462,$4D463B50,$A4986DBB,$2F3CCAD5,$ADAB6A2F,$46DCD1AB,$6329A185,$A349808E,$C2E24D21
  Data.l $8E7A9714,$C1FA58E2,$C5E97BCB,$751DDF0E,$5AB3D86F,$D66C3C4B,$21CEEA64,$BFF25A02,$FF5DC9ED,$BFC79600,$6DAF33BF,$1C170B9E
  Data.l $9BCD1D1F,$26E5392B,$ADC2BD5D,$FB5BF44A,$43FB0A4D,$BF5773D4,$3F278A63,$6169DAC3,$95621259,$F1B49E59,$6EC4C248,$CB3A73C7
  Data.l $DDCC6DA9,$9CF39EA4,$5CF5F8E6,$F9E35423,$9C4658A9,$F9759BA4,$B3FA38D6,$79AEA7CD,$5E9F9001,$4EF6FB74,$977A2E2B,$BA77FC24
  Data.l $25569B3D,$B524D678,$95786F2B,$8DB44965,$F1EA027B,$41273EA9,$1733D8DB,$C295DBB2,$FBE5034F,$7959E4D7,$293B423E,$71831DBD
  Data.l $643843D0,$4F729375,$4ADC4611,$F9064BE8,$DF6DCD35,$AB49C56C,$E578E64F,$4334AB9E,$38A31D57,$5671DEC6,$95112987,$568DFE4D
  Data.l $58E8E599,$A9DA5EA1,$0F38B791,$3E01DC28,$BDB6338D,$75314CD6,$CB9A8F07,$C4C6AD5B,$64172C6D,$67B4D291,$85211644,$918198FD
  Data.l $0B063795,$F9DD3DA9,$9FB9EAE8,$54FA69B6,$94756B39,$A9B86547,$6AD232A9,$D3194A8D,$75721441,$CC1E2619,$6631D28C,$CE8E39EF
  Data.l $59B8B5DD,$5C72D132,$7A9C2077,$7649D3C8,$5E4084D0,$10515445,$D048943A,$F6C45005,$33407EFA,$DA65BFCF,$2923B5FA,$A1E48B43
  Data.l $F9B55A2B,$6AA3C0EA,$37AC6643,$BAAE31D2,$EC00EF45,$9BE1DE5E,$9C48DB9D,$07971C56,$5CE9533B,$26B8BB44,$B4AED7B2,$CC6C749B
  Data.l $9488EDB2,$1AA10E12,$199E1DA8,$E2B4ED36,$348F5E87,$9C7C64E7,$DA8D77E7,$0FCAEE55,$F982D3F7,$8A63BFAF,$4A2EF5EA,$9AD7283E
  Data.l $A3DBABCD,$90EA3596,$66BC3E12,$5DE26827,$20C64E15,$773A017A,$97DDC69C,$BF222B6F,$9979E389,$90634D04,$B4C1CA8E,$95F16D18
  Data.l $0D2AEAE5,$A4C0BC02,$8777B0C7,$FF9BD7D7,$E264A300,$8A9CF160,$6EA955DF,$82D04B4A,$45EBBBBC,$DD3D396E,$63C85104,$100C549B
  Data.l $5E67AE69,$EA82AFDB,$815B79DD,$6D698993,$4B9EB4BD,$2C732C31,$CAA25235,$92248B55,$F5A63322,$0A6CC0DC,$E6A03D34,$2C393B7B
  Data.l $9B736898,$30C00043,$AFA4060C,$013D9F0C,$AF54E2C0,$0350D519,$432BD981,$7050CF27,$03572A12,$00A6C16E,$C81DD629,$5DA90530
  Data.l $0F40E50E,$ECEE01A7,$9125E00E,$51C3685C,$58A5D080,$5F83E036,$08DE024E,$415D1BA4,$B48E1C18,$851A7D31,$EF1C30F9,$57EA69C0
  Data.l $09C8EA90,$D5B84FC0,$3F7600FF,$56690056,$058CF13D,$DAC8951A,$D4816950,$887D04AD,$A9256080,$46AB73D6,$415AC009,$40317F14
  Data.l $A4081EC0,$020EEAF9,$3A649D16,$051C60AC,$EC64683D,$B1030774,$465F14C1,$054C7EA1,$188D2B3A,$B92B306A,$EB192E2E,$39804632
  Data.l $5418F81D,$576B2DF2,$8A4A5EDA,$2C400C5A,$0E3A445A,$7319F3C1,$F70D935C,$A151C51D,$4504455C,$C9982141,$AAC4CA23,$2BAF2EAA
  Data.l $81A8683B,$0DB0D740,$91955B32,$1B46A331,$327A0448,$AEC6BD06,$5C63BABB,$B0F09A05,$801150DA,$4E59A595,$02AE31A2,$362EBC9E
  Data.l $123082B2,$CDA72B95,$4A033040,$06DB6DB1,$95079CBE,$348A4655,$30C01D18,$C000030C,$00030C30,$030C30C0,$0C30C000,$30C00003
  Data.l $C000030C,$00030C30,$030C30C0,$3830C000,$8F0DD8DD,$EEE0809D,$8001EEC0,$01061860,$06186080,$7F608001
  Data.b $FF,$D9
  ;}
EndDataSection ;<
;}
;{ Image Plugins
UseJPEGImageDecoder()
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_AR_S()
  If OpenWindow(#AR_S, 252, 305, 321, 296, "Ar-S Chr transcriptor", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    If CreateGadgetList(WindowID(#AR_S))
      EditorGadget(#Afficheur, 5, 95, 310, 70)
      EditorGadget(#Afficheur_Chr, 5, 190, 310, 100)
      TextGadget(#Info2, 75, 70, 165, 15, "Ecriver le texte à transformer", #PB_Text_Center)
      ImageGadget(#Image_titre, 5, 5, 320, 55, CatchImage(#Image_Image_4, ?Image_Image_4))
      ButtonGadget(#About, 290, 65, 20, 20, "?")
      ButtonGadget(#Transforme, 5, 167, 250, 20, "Transformer en ASCII")
      ButtonGadget(#Copier, 260, 167, 55, 20, "Copier")
    EndIf
  EndIf
EndProcedure

Procedure.s Str2Asc(Text.s)
  Repeat
    Ret.s+"chr("+Str(PeekC(@Text+n))+")+"
    n+1
  Until PeekB(@Text+n)=0
  ProcedureReturn Ret
EndProcedure

Procedure.s MiseEnForme(Chaine.s)         ; MODIFIER ---------------------------------
  Lg=Len(Chaine)
  Repeat
    y=x+1
    x = FindString(Chaine,")",x+50)
    If x>y
      Ret.s+Mid(Chaine,y,x-y+1)+Chr(13) 
    Else
      Ret.s+Mid(Chaine,y,Lg-y)+Chr(13)  
    EndIf
  Until y>x  
  ProcedureReturn Ret
EndProcedure                                      ; MODIFIER ---------------------------------

OpenWindow_AR_S()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Afficheur
      ElseIf EventGadget = #Afficheur_Chr
      ElseIf EventGadget = #Info2
      ElseIf EventGadget = #Image_titre
      ElseIf EventGadget = #About
        MessageRequester ( "A Propos" , "               CHR TRANSCRIPTOR 1.0"+Chr(10)+Chr(10)+"Réalisé par Cyrille Landivier"+Chr(10)+"Plus de logiciels sur http://arsworld.free.fr",0)
      ElseIf EventGadget = #Transforme
        touche$=GetGadgetText (#Afficheur)
        Texte.s=Str2Asc(touche$)                                             ; MODIFIER ---------------------------------
        SetGadgetText (#Afficheur_Chr,MiseEnForme( Texte))        ; MODIFIER ---------------------------------
      ElseIf EventGadget = #Copier
        SetClipboardText(Texte)                                                ; MODIFIER ---------------------------------
        MessageRequester ("info","Le code Ascii est copié dans le presse papier")
      EndIf
      ; //////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #AR_S
        CloseWindow(#AR_S)
        ClearClipboard()
        Break
      EndIf
  EndSelect
ForEver
;
;}
Denis

Bonne Jounée à tous
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Oh merci Brossden c'est nikel,

Maintenant explique :D un peu ce qui ce passe dans

Code : Tout sélectionner

Procedure.s MiseEnForme(Chaine.s)         ; MODIFIER ---------------------------------
  Lg=Len(Chaine)
  Repeat
    y=x+1
    x = FindString(Chaine,")",x+50)
    If x>y
      Ret.s+Mid(Chaine,y,x-y+1)+Chr(13)
    Else
      Ret.s+Mid(Chaine,y,Lg-y)+Chr(13) 
    EndIf
  Until y>x 
  ProcedureReturn Ret
EndProcedure
Haut
brossden
Messages : 821
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Explication ! pour Ar-s !!!

Lg=Len(Chaine)
Repeat
y=x+1
x = FindString(Chaine,")",x+50)
If x>y
Ret.s+Mid(Chaine,y,x-y+1)+Chr(13)
Else
Ret.s+Mid(Chaine,y,Lg-y)+Chr(13)
EndIf
Until y>x
ProcedureReturn Ret
EndProcedure

Données de départ :
"y" sera le premier caractère de la ligne à afficher
"x" sera le dernier caractère de la ligne à afficher

Donc pour la ligne suivante, y est le premier caractère après le dernier qui a été affiché sur la ligne précédente (x) !
soit :

y=x+1

De plus pour la première ligne x est encore égal à zéro donc tout va bien puis dans ce cas le premier caractère à afficher est bien y=0+1 soit le premier !


x = FindString(Chaine,")",x+50)

Permet de rechercher la position x du premier caractère ")" à au moins 50 caractères plus loin de la position x précédente.

Donc la ligne à afficher commence à la position y et fini à la position x donc longueur de la ligne x-y+1 !

Ret.s+Mid(Chaine,y,x-y+1)+Chr(13)

On stocke dans Ret la ligne suivit d'un retour chariot plus la ligne suivante suivit d'un retour chariot ....

A la fin de la chaine à editer il est peu probable que la ligne soit complète donc x va se retrouver à zéro. Dans ce cas là il faut donner à x la position du dernier caractère de la chaine à éditer soit sa longueur soit Lg.

Et quand x est inférieur à y c'est que la chaine à été editée dans son ensemble donc fin de la boucle !

Suis je Clair ?
Dernière modification par brossden le jeu. 14/juin/2007 13:18, modifié 3 fois.
Denis

Bonne Jounée à tous
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

si j'ai bien compris, il ajoute des "saut de ligne" (chr13)
pour que l'affichage ne se fasse pas sur une seul ligne :D
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

mouai ok, je viens de voir à quoi servait Mid :)
Haut
brossden
Messages : 821
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Revenez à mon dernier post il y a eu un Bug à l'envoi !!

Et bien vu pour Dobro !
Denis

Bonne Jounée à tous
Haut
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :
Contacter Ar-S

Message par Ar-S »

Ok voilà qui est bien mieux :)
Je vais lire et relire ton explication, c'est fou comme des choses simples pour certains sont brumeuses pour d'autres :P
Haut
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

.........
Dernière modification par Backup le mar. 19/août/2014 13:35, modifié 1 fois.
Haut
brossden
Messages : 821
Inscription : lun. 26/janv./2004 14:37

Message par brossden »

Trés bien dobro mais comment tu gères le bouton Copier ??
La valeur du Gadget n'est plus compatible ...

Code : Tout sélectionner

ascii$=   GetGadgetText   (  #Afficheur_Chr  )
SetClipboardText (ascii$)
Je pense que le temps de traitement est aussi assez long
Denis

Bonne Jounée à tous
Haut
Répondre

Revenir à « Débutants »