Redigering af tekst

Det leteste er at bruge RichText controllen den har to functioner der bruges til at gemme/åbne filer med (RTF (med formatering) og Alm. TXT filer)

Brug et memo-komponent (eller flerlinie felt) og læs textfilen ind i den. Dermed burde du kunne editere den, med mange af de samme muligheder som normalt for Notepad.

sjensen

Altså hvis du har hentet data ind i en textbox kan du jo godt ændre i dem og når du skal gemme skal det være sådan.

Open "test.txt" for output as #1
  Print #1, text1.text
Close #1

Du kan også bruge 'Append" istedet for 'Output' da append tilføjer og output overskriver!

Mvh. The-Portal

>>sjensen det er ikke delphi men VB (hvor det ikke hedder memo)

1271..> ja, ja, det ved jeg godt ;-)

Men det er jo samme problemer vi står med og derfor som regel også samme løsninger vi skal kigge efter. Og mit svar er jo bare lidt hjælp til selvhjælp, ikke et færdigt program.

I VB hedder det jo bare noget andet, ik ?

Husk også brugen af f.eks. clipboard og markeringer :

Text1.SelStart=0
Text1.SelLength=10

markerer de første 10 tegn i din teksboks.

Clipboard.SetText Text1.SelText

kopierer markeringen til clipboard, hvorefter du f.eks. kan slette markeringen.

Kopi = Clipboard.GetText()

henter indholdet af clipboard ind i variablen kopi.

Hvis du vil indsætte tekst fra clipboard og overskrive en markering :

Indhold=Text1.Text 'Indholdet af din tekstboks
Start=Text1.SelStart ' Starten af markeringen
Antal=Text1.SelLength ' Længden af markeringen
Kopi=Clipboard.GetText() 'Henter tekst fra clipboard

Indhold=Left(Indhold, Start) + Kopi + Mid(Indhold, Start + Antal+1)
Text1.Text=Indhold 'Indsætter teksten i markeringen
Text1.SelStart = Start + Len(Kopi) 'Placer curser ved enden af det indsatte

Hvis du vil gemme indholdet af tekstboksen på disk :

Open App.Path & "filnavn.txt" for Output As #1
Print #1, Text1.Text
Close 1

Brian

>>sjensen var lige lidt pissed of på det tispunkt pga nogle andre her på eksperten sorry

1271..>Ok, det skal der også være plads til :-)

redigere??
hvad mener du, skal du gemme?

HHHHHHHHAAAAAAAAAAAAAAALLLLLLLLLLLOOOOOOO

>> kaj har du en e-mail-adresse?

Jeg kan sende et lille eksempel, hvor alle funktionerne er...

/jsc