C++Builder5 ohjelmointiin apua

Tämäntapaisen olen itsekkin löytänyt, mutta ihmetyttää rivinvaihtojen ja tabulointien saaminen etsittävään ja korvaavaan tekstiin. Myös sekään, että pitäisi korvata koko rivi, jonka alussa on etsittävä teksti, ei mielestäni onnistu tuolla esimerkillä. Esim. näin pitäisi tehdä:
24.6.2002 12345674 Porvoo

Pitäisi muuttaa ohjelmalla vaikka näin
24.6.200212345674Porvoo

= tabulointimerkki ja
on rivinvaihto

Anu kirjoitti:

Tämäntapaisen olen itsekkin löytänyt, mutta ihmetyttää rivinvaihtojen ja tabulointien saaminen etsittävään ja korvaavaan tekstiin. Myös sekään, että pitäisi korvata koko rivi, jonka alussa on etsittävä teksti, ei mielestäni onnistu tuolla esimerkillä. Esim. näin pitäisi tehdä:
24.6.2002 12345674 Porvoo

Pitäisi muuttaa ohjelmalla vaikka näin
24.6.200212345674Porvoo

= tabulointimerkki ja
on rivinvaihto

Tässä kaksi vaihtoehtoa:
Mutta toimivat ainostaan TMemo komponentin kanssa, TRichEdit ei jostain kumman syystä toimi ainakaan minulla?


Kiinteä alku:

AnsiString __fastcall StrRep(AnsiString Where, AnsiString What, AnsiString s)
{
int pos;
while ((pos = Where.Pos(What)) != 0)
{
Where.Delete(pos,What.Length());
Where.Insert(s,pos);
}

return Where;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a;
AnsiString u;

AnsiString k = "AA"; // haluttu alku

for (int i = 0; i < Memo1->Lines->Count; i++)
{
a = Memo1->Lines->Strings[i];
a = a.SubString(1,k.Length());

if (a == k) // Alku sama
{
u = Memo1->Lines->Strings[i];
u = StrRep(u," ",""); // korvaus
Memo1->Lines->Strings[i] = u; // uus takas
}
}
}

Toinen mahdollisuus "C" tyyliin
jos muutettava alku on päivämäärä ja kentät aina samat (jos rivin pituus yli puskureiden koon kaatuu):

#include

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char buf[256];
int d,m,y;
char tieto[256];
char paikka[256];

for (int i = 0; i < Memo2->Lines->Count; i++)
{
// rivi sopivassa muodossa ?
if (sscanf(Memo2->Lines->Strings[i].c_str(),"%d.%d.%d %s %s",&d,&m,&y,tieto,paikka) == 5)
{
// tehdään rivi uusiksi
sprintf(buf,"%d.%d.%d %s%s",d,m,y,tieto,paikka);
Memo2->Lines->Strings[i] = buf; // takas
}
}
}

Rivit hyppii mutta minkäs teet.

mutta lopun '
' ei kumpikaan koske, Tulokset on tarkoitus esittää samassa komponentissa ?

joku vaan kirjoitti:

Tässä kaksi vaihtoehtoa:
Mutta toimivat ainostaan TMemo komponentin kanssa, TRichEdit ei jostain kumman syystä toimi ainakaan minulla?


Kiinteä alku:

AnsiString __fastcall StrRep(AnsiString Where, AnsiString What, AnsiString s)
{
int pos;
while ((pos = Where.Pos(What)) != 0)
{
Where.Delete(pos,What.Length());
Where.Insert(s,pos);
}

return Where;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString a;
AnsiString u;

AnsiString k = "AA"; // haluttu alku

for (int i = 0; i < Memo1->Lines->Count; i++)
{
a = Memo1->Lines->Strings[i];
a = a.SubString(1,k.Length());

if (a == k) // Alku sama
{
u = Memo1->Lines->Strings[i];
u = StrRep(u," ",""); // korvaus
Memo1->Lines->Strings[i] = u; // uus takas
}
}
}

Toinen mahdollisuus "C" tyyliin
jos muutettava alku on päivämäärä ja kentät aina samat (jos rivin pituus yli puskureiden koon kaatuu):

#include

void __fastcall TForm1::Button2Click(TObject *Sender)
{
char buf[256];
int d,m,y;
char tieto[256];
char paikka[256];

for (int i = 0; i < Memo2->Lines->Count; i++)
{
// rivi sopivassa muodossa ?
if (sscanf(Memo2->Lines->Strings[i].c_str(),"%d.%d.%d %s %s",&d,&m,&y,tieto,paikka) == 5)
{
// tehdään rivi uusiksi
sprintf(buf,"%d.%d.%d %s%s",d,m,y,tieto,paikka);
Memo2->Lines->Strings[i] = buf; // takas
}
}
}

Rivit hyppii mutta minkäs teet.

mutta lopun '
' ei kumpikaan koske, Tulokset on tarkoitus esittää samassa komponentissa ?

Kiitos noista vihjeistä, joiden avulla keksin ao. rivin, jolla voi ainakin tehdä sen rivin lopun korvaamisen.

kohta = RichEdit1->Lines->Strings[i].Pos("etsittävä");

Tuo sscanf ei oikein vaikuta soveliaalta, mutta ehkä ...Pos("etsittävä") voi jollain konstilla laittaa merkkien arvoja.

C-kielen pointtereilla olisi helppo etsiä vaikka mitä merkkejä, mutta kun tässä on kaikenlaiset AnsiStringit ja muut... No tämkin on varman sitten helppoa, kun pääsee sisään tähän minulle erilaiseen maailmaan.

Anu kirjoitti:

Kiitos noista vihjeistä, joiden avulla keksin ao. rivin, jolla voi ainakin tehdä sen rivin lopun korvaamisen.

kohta = RichEdit1->Lines->Strings[i].Pos("etsittävä");

Tuo sscanf ei oikein vaikuta soveliaalta, mutta ehkä ...Pos("etsittävä") voi jollain konstilla laittaa merkkien arvoja.

C-kielen pointtereilla olisi helppo etsiä vaikka mitä merkkejä, mutta kun tässä on kaikenlaiset AnsiStringit ja muut... No tämkin on varman sitten helppoa, kun pääsee sisään tähän minulle erilaiseen maailmaan.

Alla on vielä pätkä, jolla voit tunnistaa rivinvaihdot ja muut:

AnsiString EditText = RichEdit1->Text;

for (int i=1;iText = RichEdit2->Text IntToHex(EditText[i],2) " ";
}

Se lukee RichEdit1:n AnsiString EditTextiin ja tulostaa sen merkki kerrallaan RichEdit2:een heksana välilyönnein erotettuna.

Loppu varmaan onnistuu noin fiksulta tytöltä. Lycka till!

Anu kirjoitti:

Kiitos noista vihjeistä, joiden avulla keksin ao. rivin, jolla voi ainakin tehdä sen rivin lopun korvaamisen.

kohta = RichEdit1->Lines->Strings[i].Pos("etsittävä");

Tuo sscanf ei oikein vaikuta soveliaalta, mutta ehkä ...Pos("etsittävä") voi jollain konstilla laittaa merkkien arvoja.

C-kielen pointtereilla olisi helppo etsiä vaikka mitä merkkejä, mutta kun tässä on kaikenlaiset AnsiStringit ja muut... No tämkin on varman sitten helppoa, kun pääsee sisään tähän minulle erilaiseen maailmaan.

AnsiString jäsen funktio c_str(); palauttaa c-kieliseen osoitimen (merkkijonoon ei tosin saa kirjoittaa) jolloin voi käyttää perinteistä C-kieltä, joka on vähän kyseen alaista.

Merkkien etsiminen eiköhän
String[i].Pos(' '); aja saman asian ?

Kuten eki neuvoo voit käsitellä kaikkea tekstiä tuon RichEdit->Text jäsenen avulla.