bonjour, je voudrais votre avis sur une fonction qui recherche et efface des occurrence dans une chaine string parce que je voudrais avoir une méthode rapide. merci pour vos remarques.
chaine original avec en rouge ce que je veux effacer, la partie bleu aussi mais elle varie:
ma méthode:\deaths_0\2\keyhash_0\a7a2f8801c3ae110aa3fbfee9d143abd\kills_0\0\ping_0\36\playername_0\ pingu\score_0\2\team_0\2\deaths_1\1\keyhash_1\817e7928c5dd97272dbd06be707d2cdf\kills_1\5\ping_1\40\playername_1\Buheheporcodio\score_1\5\team_1\2\deaths_2\0\keyhash_2\945c3160a248eb886dc83e5613d96857\kills_2\8\ping_2\49\playername_2\Torque.idk?\score_2\8\team_2\2\deaths_3\0\keyhash_3\160aad8653fb32fc7f49e29bc9695e1d\kills_3\0\ping_3\22\playername_3\De Man Met De Bril\score_3\0\team_3\2\deaths_4\2\keyhash_4\7c857e50cb6fb289e45f4b000a275f75\kills_4\1\ping_4\91\playername_4\Tom PL\score_4\1\team_4\2\deaths_5\0\keyhash_5\2c52ef003c6179bb9d7d827105ec7961\kills_5\0\ping_5\72\playername_5\NT|Archon\score_5\0\team_5\1\deaths_6\1\keyhash_6\1c3d869b0ca0962b2aa557dfe732dfc1\kills_6\0\ping_6\42\playername_6\Frederick Zoller\score_6\0\team_6\1\deaths_7\1\keyhash_7\f7761448739de0f4b223b8c1a75c2c9e\kills_7\0\ping_7\56\playername_7\Da Stuten Andi\score_7\0\team_7\1\deaths_8\2\keyhash_8\989022adc2dbfb30a269df4eeb09c649\kills_8\0\ping_8\137\playername_8\Twan\score_8\0\team_8\1\deaths_9\1\keyhash_9\f1c1d56abeb6b53015b5641c6b3dee2a\kills_9\2\ping_9\78\playername_9\[301]Fabiolo\score_9\2\team_9\1\deaths_10\0\keyhash_10\376cbea5eff00ae78ef2b0cd14a7770c\kills_10\1\ping_10\69\playername_10\AlFaMaNiAc\score_10\1\team_10\1\deaths_11\2\queryid\4111.1\keyhash_11\6dcba9dc3f85c6e17c6c57e15675c3dd\kills_11\0\ping_11\76\queryid\4111.2\playername_11\ZZZZZZZzzzzzzz\score_11\0\team_11\1\deaths_12\0\keyhash_12\5a1d27377560193263af744ebc90642d\kills_12\6\ping_12\56\playername_12\Wulz\score_12\6\team_12\2\deaths_13\1\keyhash_13\6c8370c10eba124af9ff47a994d8470a\kills_13\1\ping_13\66\playername_13\**Ñ** sergioten\score_13\1\team_13\1\deaths_14\1\keyhash_14\50c5fdf9de1dacf1277d3b680271e65d\kills_14\0\ping_14\66\playername_14\Napl3tek\score_14\0\team_14\1\deaths_15\1\keyhash_15\e999bedeeb4962ba3d6b298b11e2b732\kills_15\4\ping_15\54\playername_15\the Wiesel\score_15\4\team_15\1\deaths_16\1\keyhash_16\2c0228ccbadfb30f7a8b913651107747\kills_16\0\ping_16\40\playername_16\Soldier.Twister\score_16\0\team_16\1\deaths_17\1\keyhash_17\560718e3cf556cc22cb16c1b89dc6f4f\kills_17\0\ping_17\38\playername_17\JMG HUNdkreuzer RATTE\score_17\0\team_17\1\deaths_18\1\keyhash_18\7de8c7329f42eb8566c1c7c7ff79a1ca\kills_18\0\ping_18\94\playername_18\MasterOfInsanity (RUS)\score_18\0\team_18\2\deaths_19\1\keyhash_19\dd930e36a94fb35ab77800dedd1c4557\kills_19\3\ping_19\32\playername_19\Blitzkrieg Bob\score_19\5\team_19\1\deaths_20\0\keyhash_20\937d4a7ce628a8ee054f9fcbfe64be9b\kills_20\0\ping_20\445\playername_20\~yu~\score_20\0\team_20\1\deaths_21\0\keyhash_21\c71f4eeff78a84344d2185f1e8510c16\kills_21\0\ping_21\43\playername_21\molchomor\score_21\0\team_21\1\deaths_22\0\queryid\4111.3
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36 Procedure TForm1.Button3Click(Sender: TObject); Var sline: String; Search: TStringList; I: Integer; Begin Search := TStringList.Create; Try Search.LineBreak := '\'; Search.Text := '\deaths_0\2\keyhash_0\a7a2f8801c3ae110aa3fbfee9d143abd\kills_0\0\ping_0\36\playername_0\ pingu\score_0\2\team_0\2\deaths_1\1\keyhash_1' + '\817e7928c5dd97272dbd06be707d2cdf\kills_1\5\ping_1\40\playername_1\Buheheporcodio\score_1\5\team_1\2\deaths_2\0\keyhash_2\945c3160a248eb886dc83e5613d96857\kills_2\8\ping_2\49\playername_2\Torque.idk?' + '\score_2\8\team_2\2\deaths_3\0\keyhash_3\160aad8653fb32fc7f49e29bc9695e1d\kills_3\0\ping_3\22\playername_3\De Man Met De Bril\score_3\0\team_3\2\deaths_4\2\keyhash_4\7c857e50cb6fb289e45f4b000a275f75' + '\kills_4\1\ping_4\91\playername_4\Tom PL\score_4\1\team_4\2\deaths_5\0\keyhash_5\2c52ef003c6179bb9d7d827105ec7961\kills_5\0\ping_5\72\playername_5\NT|Archon' + '\score_5\0\team_5\1\deaths_6\1\keyhash_6\1c3d869b0ca0962b2aa557dfe732dfc1\kills_6\0\ping_6\42\playername_6\Frederick Zoller\score_6\0\team_6\1\deaths_7\1\keyhash_7\f7761448739de0f4b223b8c1a75c2c9e' + '\kills_7\0\ping_7\56\playername_7\Da Stuten Andi\score_7\0\team_7\1\deaths_8\2\keyhash_8\989022adc2dbfb30a269df4eeb09c649\kills_8\0\ping_8\137\playername_8\Twan' + '\score_8\0\team_8\1\deaths_9\1\keyhash_9\f1c1d56abeb6b53015b5641c6b3dee2a\kills_9\2\ping_9\78\playername_9\[301]Fabiolo\score_9\2\team_9\1\deaths_10\0\keyhash_10\376cbea5eff00ae78ef2b0cd14a7770c' + '\kills_10\1\ping_10\69\playername_10\AlFaMaNiAc\score_10\1\team_10\1\deaths_11\2\queryid\4111.1\keyhash_11\6dcba9dc3f85c6e17c6c57e15675c3dd\kills_11\0\ping_11\76\queryid\4111.2\playername_11\ZZZZZZZzzzzzzz' + '\score_11\0\team_11\1\deaths_12\0\keyhash_12\5a1d27377560193263af744ebc90642d\kills_12\6\ping_12\56\playername_12\Wulz\score_12\6\team_12\2\deaths_13\1\keyhash_13\6c8370c10eba124af9ff47a994d8470a\kills_13\1' + '\ping_13\66\playername_13\**Ñ** sergioten\score_13\1\team_13\1\deaths_14\1\keyhash_14\50c5fdf9de1dacf1277d3b680271e65d\kills_14\0\ping_14\66\playername_14\Napl3tek\score_14\0\team_14\1\deaths_15\1\keyhash_15' + '\e999bedeeb4962ba3d6b298b11e2b732\kills_15\4\ping_15\54\playername_15\the Wiesel\score_15\4\team_15\1\deaths_16\1\keyhash_16\2c0228ccbadfb30f7a8b913651107747\kills_16\0\ping_16\40\playername_16\Soldier.Twister' + '\score_16\0\team_16\1\deaths_17\1\keyhash_17\560718e3cf556cc22cb16c1b89dc6f4f\kills_17\0\ping_17\38\playername_17\JMG HUNdkreuzer RATTE\score_17\0\team_17\1\deaths_18\1\keyhash_18\7de8c7329f42eb8566c1c7c7ff79a1ca' + '\kills_18\0\ping_18\94\playername_18\MasterOfInsanity (RUS)\score_18\0\team_18\2\deaths_19\1\keyhash_19\dd930e36a94fb35ab77800dedd1c4557\kills_19\3\ping_19\32\playername_19\Blitzkrieg Bob\score_19\5\team_19\1\deaths_20' + '\0\keyhash_20\937d4a7ce628a8ee054f9fcbfe64be9b\kills_20\0\ping_20\445\playername_20\~yu~\score_20\0\team_20\1\deaths_21\0\keyhash_21\c71f4eeff78a84344d2185f1e8510c16\kills_21\0\ping_21\43\playername_21\molchomor\score_21' + '\0\team_21\1\deaths_22\0\queryid\4111.3'; I := Search.IndexOf('queryid'); While I <> -1 Do Begin Search.Delete(I); Search.Delete(I); I := Search.IndexOf('queryid'); End; memo1.Text := Search.Text; Finally Search.Free; End; End;
Partager