lazarus/pascal

Odrežem hash podatek na koncu csv vrstice, in ko pogledam, če je tam (tak, že odrezan), je result -1, bi moralo biti 0, menda.

Če se igram s stringi like 'krneki' potem indexof dela kot pričakovano.

Če kdo vidi v čem je fora?

var
   l : TLookupStringList;
   res: integer;
   i: integer;
begin
   l := TLookupStringList.Create;
   l.Duplicates:= dupIgnore;
   //l.LoadFromFile(ExtractFileDir(Paramstr(0)) + '\saved.txt');
   l.add ('"-1","200","0","1","cos","1","sin","0","0","1","0","1","0","0","0","0","0","0","0","|","0","100","0","1","cos","1","sin","2","0","0","1","0","1","0","0","0","0","0","0","0","|","0","50","0","1","cos","1","sin","2","0","0","1","0","1","0","0","0","0","0","0","0","|","0.5","0","359","1","0","0","bf2a51b4603448ee576b5fb627d3e2ed64e929a6"');
   for i := 0 to l.Count-1 do
   begin
      l[i] := ReplaceRegExpr(',"[a-z,0-9]{40}"',l[i],'',true);
   end;

   //get it to clp so I can copy it to next line, to be sure
   Clipboard.AsText := l[0];

   showmessage(IntToStr(l.IndexOf('"-1","200","0","1","cos","1","sin","0","0","1","0","1","0","0","0","0","0","0","0","|","0","100","0","1","cos","1","sin","2","0","0","1","0","1","0","0","0","0","0","0","0","|","0","50","0","1","cos","1","sin","2","0","0","1","0","1","0","0","0","0","0","0","0","|","0.5","0","359","1","0","0"')));
end;    

bciciban_ je 17. okt 2024 ob 14:24 izjavil:

Ne vem rešitve.

Ampak se moram javiti ko mi je tako toplo pri srcu ko vidim svojo prvo ljubezen :)

Tudi to je nekaj (-:

Pomoje je težava regex.
Oz. ti v produkciji že hočeš nalagat iz CSV datoteke po cele vrstice in na koncu odrezat hash ven.

Ampak kot gledam tale primer imaš ti seznam elementov, vsaka celica je svoj string, namesto en dolg string ločen z vejicami. Posledično je tale regex napačen

',"[a-z,0-9]{40}"'

l.RebuildHash;

ne obstaja.


simplified, čungalunga string zgleda nima veze:

Tule dobiš 0, pričakovano. Če pa zakomentiraš l.add ('b'); in odkomentiraš l.add ('ab'); ter odkomentiraš celoten for/next, pa dobim -1.
Checked, predzadnnja vrstica ima b, zadnja pa pravi da ga ni.

var
   l : TLookupStringList;
   res: integer;
   i: integer;
begin
   l := TLookupStringList.Create;
   l.Duplicates:= dupIgnore;

   //l.add ('ab');
   l.add ('b');

   //for i := 0 to l.Count-1 do
   //begin
   //   l[i] := ReplaceRegExpr('a',l[i],'',true);
   //end;



   //get it to clp so I can copy it to next line, to be ssure
   Clipboard.AsText := l[0];

   showmessage(IntToStr(l.IndexOf('b')));
end;