CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

neo2k Nybegynder

20. februar 2004 - 15:43 Der er 4 kommentarer og
2 løsninger

Fjern " fra tekst-streng

Jeg har et lille problem som er:
Jeg har en tekststreng, der starter og slutter med ", det kunne fx være "C:\billeder\billede.jpg" nu vil jeg gerne have gjordt så det bliver til C:\billeder\billede.jpg kortsagt uden ", men hvordan gør man det... jeg vil lige gøre opmærksom på, at det ikk er nok at fjerne det første og sidste tegn, fordi det ikke er hver gang de skal fjernes...

På forhånd tak for hjælpe.

Synes godt om

martinlind Nybegynder

20. februar 2004 - 15:47 #1

Evt. med Copy()

if Strx[1] = " then
begin
Strx := Copy(1,Strx,Length(Strx));
... // du skal så også lige fjerne den sidste
end;

Synes godt om

athlon-pascal Juniormester

20. februar 2004 - 15:57 #2

Prøv det her:

function TrimEx(S: String; C: Char): String;
begin
Result := S;
while Pos(C, Result) = 1 do
Delete(Result, 1, 1);
while LastDelimiter(C, Result) = Length(Result) do
Delete(Result, Length(Result), 1);
end;

Eksempel:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(TrimEx('"C:\billeder\billede.jpg"'));
end;

Synes godt om

athlon-pascal Juniormester

20. februar 2004 - 15:58 #3

Der er en fejl i eksemplet, der skulle naturligvis have stået:
ShowMessage(TrimEx('"C:\billeder\billede.jpg"', '"'));

Held og lykke :o)

Synes godt om

athlon-pascal Juniormester

20. februar 2004 - 16:00 #4

Og der er også en fejl i selve funktionen...

Her er en der vist ikke har nogen fejl:

function TrimEx(S: String; C: Char): String;
begin
Result := S;
while Pos(C, Result) = 1 do
Delete(Result, 1, 1);
while (LastDelimiter(C, Result) = Length(Result)) and (Length(Result) > 0) do
Delete(Result, Length(Result), 1);
end;

Synes godt om

doc404 Novice

21. februar 2004 - 22:13 #5

Og den korteversion:

NyStr := StringReplace(MinStr,'"','',[rfReplaceAll])

Men kan du ikke lige fortælle i hvilke tilfælde de IKKE skal fjernes?

Synes godt om

neo2k Nybegynder

22. februar 2004 - 11:25 #6

Tak for hjælpen allesammen, nu virker det som det skal...

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra Andet programmering kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Hjælp til programmering af website Af hamdenlange i Andet programmering	16	17/08/202522:26	19/08/202515:53
Kan man registrere hvis folk lukker en side ned Af KurtG i Andet programmering	8	24/07/202513:06	28/07/202517:03
hta - powershell eller lign. Af tjodense i Andet programmering	2	28/04/202515:22	29/04/202512:00
Bat-fil / vbs til ændre af filnavn udfra mappe-navn Af tjodense i Andet programmering	3	10/04/202511:18	11/04/202513:49
Echo virker ikke i php Af KurtG i Andet programmering	10	23/02/202511:57	24/02/202510:01

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS