PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Petit soucis de procedure pour ASC

https://www.purebasic.fr/french/viewtopic.php?t=6725

Page 1 sur 2

Petit soucis de procedure pour ASC

Publié : mar. 12/juin/2007 13:47
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

Publié : mar. 12/juin/2007 14:10
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.

Publié : mer. 13/juin/2007 10:20
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")

Publié : mer. 13/juin/2007 13:51
par Ar-S
Merci Brossden,
je ne comprends pas trop cette procédure même si elle marche au poil !

Publié : mer. 13/juin/2007 19:10
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 ?

Publié : mer. 13/juin/2007 20:10
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
;
;}

Publié : jeu. 14/juin/2007 9:37
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
;
;}

Publié : jeu. 14/juin/2007 12:29
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

Publié : jeu. 14/juin/2007 12:40
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 ?

Publié : jeu. 14/juin/2007 12:49
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

Publié : jeu. 14/juin/2007 12:56
par Ar-S
mouai ok, je viens de voir à quoi servait Mid :)

Publié : jeu. 14/juin/2007 13:10
par brossden
Revenez à mon dernier post il y a eu un Bug à l'envoi !!

Et bien vu pour Dobro !

Publié : jeu. 14/juin/2007 13:29
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

Publié : jeu. 14/juin/2007 15:08
par Backup
.........

Publié : jeu. 14/juin/2007 19:27
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
Fuseau horaire sur UTC+01:00
Page 1 sur 2

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru