Finde 0'er i en string

Jeg er ikke helt med på hvad det er du vil?

fx. jeg har et tal (random men som en string fordi brugeren selv kan taste det ind). Det tal kan se sådan her ud 38/012/0013/00001/0053 osv.

Så er det at jeg har brug for at vide hvor mange 0'er der er forand selve det tal hvis der er nogen. Men hvordan kan jeg det ? og hvordan kan jeg vide hvor mange der er af 0'er hvis der er noget ?

Du kalder "38/012/0013/00001/0053" for ét tal. Vil du bare vide hvor mange nuller der er foran hele den streng, eller foran de enkelte tal (her delt med '/')?...Og i så fald, kan man regne med at strengen altid er formateret sådan?

ja.. det er kun eksempler der er så det er et nyt tal efter '/' og de kan ik skrive andet end tal så det vil blive et eller andet tal.

Denne funktion (som sikkert kan laves smartere, når jeg er mere vågen :)), finder antallet af nuller foran en given streng:

function NumLeadZero(str: String): integer;
var
  i: integer;
begin
  result:=0;
  for i:=0 to length(str) do
    if (Ord(str[i+1]) <> 48) then begin
      result:=i;
      exit;
    end;
end;

Hvis du vil ha at NyStr skal ha' består KUN af det samme antal nuller, kan du f.eks. bruge følgende:

NyStr:=StringToChar(NumLeadZero([input-streng]));

Hov, det skulle ha' været:
Str:=StringToChar('0', NumLeadZero([input-streng]));

måske lidt hurtigere når der ikke skal konventeres.

function CounterZero(input:string):integer;
var
i :integer;
begin
result := 0;
for i:= 1 to length(input) do
  if input[I] = '0' then
    inc(result);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(CounterZero('000123')));
end;

dkn>> Var meningen ikke at den skulle finde de første nuller, og ikke bare dem alle sammen?

Hvis du kun skal finde de første nuller i en streng så:

function CountFirstZeroes(const str : string) : integer;
var
  p : PChar;
begin
  Result := 0;
  p := PChar(str);
  while (p^ <> #00) and (p^ = '0') do
  begin
    Inc(Result);
    Inc(p);
  end;
end;

Her er et par bud :

En lavet i Pascal, og en i Assembler :

function NumLeadZeroASM(Const Value : String): integer;
asm
  mov edx, $00 // Result := 0
  test eax, eax //Er strengen tom ?
  jz @@Done //Så Exit
  mov ecx,[eax - $04] // Læs længden på vores streng, og gem den i ecx
@@Again:
  cmp edx, ecx // Result < Length(Value)
  cmp byte ptr [eax + edx], $30 //Value[Result] = '0'
  jnz @@Done //Enten har vi fundet noget der ikke er et '0', eller enden er nået --> Hop til Done
  inc edx //Tæl vores tæller
  jmp @@Again //Loop
@@Done:
  mov eax, edx //Retuner værdien af vores tæller
end;

function NumLeadZero(Const Value : String): integer;
begin
  Result := 0;
  while (Value[Result + 1] = #48) and (Result < Length(Value)) do
    Inc(Result);
end;


Jens B

Er du der ?

uhaa da da.. jeg har ikke været hjemme de sidste par dage men jeg checker lige de ting her og ser om jeg kan få det til at virke ;)

Hvilken fil kan jeg finde StringToChar i ?

Borrisholdt:

@@Again:
  cmp edx, ecx // Result < Length(Value)
  cmp byte ptr [eax + edx], $30 //Value[Result] = '0'
  jnz @@Done //Enten har vi fundet noget der ikke er et '0', eller enden er nået --> Hop til Done
  inc edx //Tæl vores tæller

Dine to CMP i rap går da galt...

Jeg vil anbefale dig at bruge dkn's funktion:

function CounterZero(input:string):integer;
var
i :integer;
begin
result := 0;
for i:= 1 to length(input) do
  if input[I] = '0' then
    inc(result);
end;

Dernæst kan du så bruge den:
case CounterZero(NulStreng) of
  1:NyStr := '0'
  2:NyStr := '00'
  3:NyStr := '000'
  4:NyStr := '0000'
end;

Eller, endnu bedre:

var
  I: Integer;
begin
  NyStr := '';
  for I := 1 to CounterZero(NulStreng) do
    NyStr := NyStr + '0';

Det var antallet af foranstillede nuller azs skulle bruge. CounterZero tæller antallet af 0'er i hele strengen.

athlon-pascal >> Du har ret. 2x cmp i træk viker ikke. Nå men funktionen er også mest skrevet for sjov.

Og når nu doc404 begynte med at skrive en hurtigere funktion, så ville jeg lige skrive en i Assembler :-)


function NumLeadZeroASM(Const Value : String): integer;
asm
  mov edx, $00 // Result := 0
  test eax, eax //Er strengen tom ?
  jz @@Done //Så Exit
  mov ecx,[eax - $04] // Læs længden på vores streng, og gem den i ecx
@@Again:
  cmp edx, ecx // Result = Length(Value) ?
  je @@Done //Hvis så hop til Done
  cmp byte ptr [eax + edx], $30 //Value[Result] = '0'
  jnz @@Done //Enten har vi fundet noget der ikke er et '0', eller enden er nået --> Hop til Done
  inc edx //Tæl vores tæller
  jmp @@Again //Loop
@@Done:
  mov eax, edx //Retuner værdien af vores tæller
end;


Jens B

Jens -> "athlon-pascal >> Du har ret. 2x cmp i træk viker ikke. Nå men funktionen er også mest skrevet for sjov." Det var doc404 der kommenterede din Assembler-funktion, jeg forstår ikke Assembler :-)

Og lad os så lige få noget der virker:

function CounterZero(input:string):integer;
var
i :integer;
begin
result := 0;
for i:= 1 to length(input) do
  if input[I] = '0' then
    inc(result);
  else
    Break;
end;

:-)

ja ja min virker altså også :-)

Jeg har indført en je @@Done  i mit loop

Jens B

dkn -> jeg må afvise dit svar da den finder alle 0'er i en string og ik kun de første.

Hvis Jens lige vil lave et svar så il jeg lige dele lidt points ud ;)

Jow da