Miten merkkijonosta poistetaan välilyönti /tab merkit
välilyönti/tab-merkit
8
97
Vastaukset
- vaastaa
hexdump -C tiedosto_jossa_merkkejä_välilyöntejä_ja_tab_merkkejä.txt
- JotenkinNäin
Function IlmanTabia(s : String) : String;
var t : String;
Begin
t:='';
for i:=1 to length(s) do if mid(s, i, 1)<>char(9) t:=mid(s, i, 1) end;
IlmaTabia : t;
End;- Korjaus
t:=t mid(s, i, 1)
- Korjaus
IlmaTabia : =t;
- fpfan
Tarkoitit siis tälläistä:
function IlmanTabia(s : String) : String;
var
t : String;
i : integer;
begin
t := '';
for i := 1 to length(s) do
if AnsiMidStr(s, i, 1) <> #9 then t := t AnsiMidStr( s, i, 1 );
result := t;
end;
// AnsiMidStr löytyy StrUtils käännösyksiköstä
http://www.freepascal.org/docs-html/rtl/strutils/ansimidstr.html - gettickcount
AnsiMidStr on hidas, onko tuo jotain Visual Basic -tyyliä.
Function deltab(s: string) : string;
var c: char;
Begin
result := '';
for c in s do if c <> #9 then result := result c;
End;
tai
Function deltab2(s: string) : string;
var i: integer;
Begin
result := '';
for i to length(s) do if s[i] <> #9 then result := result s[i];
End;
tahi
Function deltab3(s: string) : string;
var i: integer;
Begin
repeat
i:= pos(#9, s);
if i= 0 then break;
delete(s, i, 1);
until false;
result := s;
End;
- fpfan
Free Pascal:n strutils kirjastossa on mm funktiot
- DelSpace tuhoaa välilyönnit
http://www.freepascal.org/docs-html/rtl/strutils/delspace.html
- DelChars tuhoaa annetun merkin esiintymät
http://www.freepascal.org/docs-html/rtl/strutils/delchars.html - datan_strukturointi
Tässäkin itse asiassa nähdään, kuinka ohjelmoijaa yritetään viedä pascal:ssa oikeaan suuntaan, eli käyttämään erillisiä esitysmuotoa ja datan käsittelymuotoa. Merkkijonojen skannaaminen edes takas kun on hidasta. Oikea tapa on pitää tabuloinnit taulussa ja ihan perustyyppeinä. Sitten vasta tehdä esitystapamuunnos kun tietoa pitää jossakin muodossa käyttäjälle näyttää.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 683199
- 2002811
- 222628
- 492598
- 202466
Kuule rakas...
Kerrohan minulle lempivärisi niin osaan jatkaa yhtä projektia? Arvaan jo melkein kyllä toki. Olethan sinä aina niin tyyl412315Miten hitsissä ulosoton asiakas?
On tää maailma kumma, tässä haisee suuri kusetus ja ennennäkemättömän törkeä *huijaus*! Miten to.monen kieroilu on edez2101753Törmättiin tänään
enkä taaskaan osannut reagoida fiksusti. Menen aina lukkoon. Yksi asia on varma: tunteeni sinua kohtaan ovat edelleen v241707- 371570
- 181426