Hollosi Information eXchange /HIX/
HIX CODER 992
Copyright (C) HIX
2000-11-02
Új cikk beküldése (a cikk tartalma az író felelőssége)
Megrendelés Lemondás
1 Re: export! (mind)  8 sor     (cikkei)
2 Re: *** HIX CODER *** #991 (mind)  24 sor     (cikkei)
3 Re: A'be'ce' sorrend (mind)  84 sor     (cikkei)
4 honlap_eleres (mind)  10 sor     (cikkei)
5 abc sorrend (mind)  28 sor     (cikkei)
6 ABC sorrend (mind)  15 sor     (cikkei)
7 Re: A'be'ce' sorrend (mind)  58 sor     (cikkei)
8 A'be'ce' sorrend (mind)  98 sor     (cikkei)

+ - Re: export! (mind) VÁLASZ  Feladó: (cikkei)

>Tudja valaki, hogyan lehet Delphiben egy adott szoveget Word formatumba
>exportalni?
Hasznald a Word OLE vagy COM interfeszet a dokumentumok letrehozasahoz!
Ha D5-od van es annak telepitesekor mar installalva volt az Office is, akkor
a Servers komponens-fulon automatikusan ott lesznek a szukseges
komponensek...

Gabor
+ - Re: *** HIX CODER *** #991 (mind) VÁLASZ  Feladó: (cikkei)

>3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
>aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
>Van valami otletetek, hogy hogyan oldjam meg a problemat???
>Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
>a 'nev' mezo alapjan...

En 2 konvertalassal oldottam meg.
rendezes elott:
A=0x41
Á=0x42
B=0x43
 .
 .
Z=0x63
rendezes...
rendezes utan:
0x41=0x41
0x42=0x8f (?)
0x43=0x42
 .
 .
0x63=0x5b

koka.
+ - Re: A'be'ce' sorrend (mind) VÁLASZ  Feladó: (cikkei)

Szevasz!

> Felado :  [Hungary]
> Temakor: A'be'ce' sorrend ( 14 sor )
> Idopont: Tue Oct 31 16:43:43 EST 2000 CODER #991
> - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> Irok egy progit es fontos lenne belerakni az abc rendezest.
> Meg is irtam, aztan jott a hidegzuhany:
> A magyar betuk!!!
> 3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
> aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
> Van valami otletetek, hogy hogyan oldjam meg a problemat???
> Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
> a 'nev' mezo alapjan...
> Csak ez a rohadt magzar billentzuyet... :)))))
Ha jol ertelmezem a problemad az, hogy az ekezetes betuk ASCII kodja nincs
szep sorban a tobbi betuvel 'ABC'-ben.

1)
felirod a magyar ABC-t a neked megfelelo sorrendben
sorszamozod a betuket 1-BetuDB-ig
alairod a fileban szereplo ASCII kodjaikat
2)
letrehozol egy tombot:
var
  botuk: tomb[0..255] of byte
3)
a betuk ASCII kodjat hasznalva indexkent, az adott helyre beirod a sorszamot
4)
rendezeskor a karakter 'erteket' a botuk[Ord(karakter)] adja meg

Epp most talaltam meg egy regi progimat. Abban igy oldottam meg:
---------------------Pascal code---------------------
function AtErtekel( s:string ) : string;
  const                                 { a   b   c   d   e   f   g}
    Ertekek : array['A'..'Z'] of char = (#48,#50,#51,#52,#53,#55,#56,
{              h   i   j   k   l   m   n   o   p   q   r   s   t   u}
              #57,#58,#60,#61,#62,#63,#64,#65,#69,#70,#71,#72,#73,#74,
{              v   w   x   y   z}
              #78,#79,#80,#81,#82);
  var
    atm : string;
    ic : char;
    shossz : byte;
    ekez : boolean;

  begin
    shossz := length(s);
    FillChar(atm,30,' ');
    for i:=1 to shossz do
      begin
        ic := s[i];
        ekez := ic in Ekezetes;
        if ic<>' ' then
          if not(ekez) then atm[i] := Ertekek[Upcase(ic)] else
            case ic of
              'á','Á' : atm[i] := #49;
              'é','É' : atm[i] := #54;
              'í','Í' : atm[i] := #59;
              'ó','Ó' : atm[i] := #66;
              'ö','Ö' : atm[i] := #67;
              'o','O' : atm[i] := #68;
              'ú','Ú' : atm[i] := #75;
              'ü','Ü' : atm[i] := #76;
              'u','U' : atm[i] := #77;
            end;
      end;
    AtErtekel := atm;
  end;

function Nagyobb( elem1,elem2:Szemely ) : boolean;
  begin
    if AtErtekel(elem1.nev)>AtErtekel(elem2.nev) then Nagyobb := true else
    if (elem1.nev=elem2.nev) then

{itt egyeb mezok szerint}

    else Nagyobb := false;
  end;
------------------code vege----------------------(ez mukodott)
lehet valasztani

Jo codolast!
Sipi
+ - honlap_eleres (mind) VÁLASZ  Feladó: (cikkei)

Sziasztok!

CBuilder kornyezetben szeretnek pl. OnClick esemenyre egy elore megadott
weboldalt letolteni es a tartalmat megjelenittetni. A legjobb az volna, ha a
gepen levo bongeszot aktivizalna a progi (IE vagy Netscape) az
alapertelmezett csatlakozassal. Hogyan oldhato meg, milyen komponensek
szuksegesek hozza, illetve a helpben talalhato peldaprogram futtatasa soran
miert kaphatok ESockError; Host LookUp Failed hibauzenetet?
A valaszokat elore is koszonom.
Otto
+ - abc sorrend (mind) VÁLASZ  Feladó: (cikkei)

Hi Coderek!

Irok egy progit es fontos lenne belerakni az abc rendezest.
Meg is irtam, aztan jott a hidegzuhany:
A magyar betuk!!!
3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
Van valami otletetek, hogy hogyan oldjam meg a problemat???
Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
a 'nev' mezo alapjan...
Csak ez a rohadt magzar billentzuyet... :)))))

Kosz,
       TCHeeCo
--------

hi,
irhattad volna hogy C vagy pascal, de vegulis tokmind1. Csinald azt, hogy
ahelyett hogy csak siman (int)char-t hasznalsz, vagy barmit a pascalban (ki
emlexik mi van ot... :) ahelyett egy fv-t hasznalsz, ami floatot ad vissza,
majd minden osszehasonlitasnal floattal dolgozol, es a fv a kerdeses betukre
pl. a'-ra a+0.5-ot ad vissza, vagyis 160.5-ot. igy az osszehasonlitas is
mukodni fog, es neked csak egy fv-t kell atirnod meg par fv hivast, vagy
castolas helyett fv-el valo castolast. (float fv(char bla) { if (bla=='a'')
return 160.5 if.........  return (float)bla;

remelem jo,
rev :)
+ - ABC sorrend (mind) VÁLASZ  Feladó: (cikkei)

> Irok egy progit es fontos lenne belerakni az abc rendezest.
 > Meg is irtam, aztan jott a hidegzuhany:
 > A magyar betuk!!!
 > 3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
 > aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
 > Van valami otletetek, hogy hogyan oldjam meg a problemat???

Csinalsz egy karaktertombot, aminek az indexe a karakter es az erteke
a karakter sorszama valamely tetszolegesen definialt alfabetikus
rendezes szerint. Amikor osszehasonlitasz ket karaktert, akkor
nem magukat a karaktereket, hanem a tomb[ karakter ] -eket kell
vizsgalnod. Ez a metodus egybol megoldja pl. a gyakran elokerulo
gondot, hogy a kis- es nagybetuket ne kulonboztesse meg meg hasonlok.

Zoltan
+ - Re: A'be'ce' sorrend (mind) VÁLASZ  Feladó: (cikkei)

Szevasz/tok!

>Felado :  [Hungary]
>Irok egy progit es fontos lenne belerakni az abc rendezest.
>Meg is irtam, aztan jott a hidegzuhany:
>A magyar betuk!!!
>3 oran keresztul szenvedtem a sima, egyszeru nevsorba rendezesen,
>aztan tessek, ASCII tabla rulez,  a gyonyoru eljarasomat! :(
>Van valami otletetek, hogy hogyan oldjam meg a problemat???
>Tulajdonkeppen egy fileban, a rekordokat akarom sorrendbe rendezni,
>a 'nev' mezo alapjan...
>Csak ez a rohadt magzar billentzuyet... :)))))
>       TCHeeCo


(Mindamellett, hogy megertelek, sot e borzaszto es tragikus helyzetbol
megmutatom a kivezeto utat, megdobbent, hogy micsoda indulatok
szabadultak el Benned ezen problema miatt, amelyekhez hasonlokkal
szereny munkank soran allandoan talakozunk. (:-))))))))

Csinalsz egy 256 elemu tablazatot, amelyet inicializalsz ugy, hogy az
elemek erteke megegyezik az index ertekevel.

C-ben pl.  char tabla[256] = {0,
                                          1,
                                          2,
 ...
                                         32,  // Space
 ...
                                        254,
                                        255};

Minden elem melle kommentkent oda irod, hogy milyen karakter a kodja az
adott szamertek.
Ezutan !!!!nagyon figyelmesen!!!!! a sorokat editorral olyan sorrenbe
rakod, ahogy az neked tetszik.

Ezutan csinalsz egy inverz tablat:
char tabla_inverz[256];

A program futasanak elejen pedig feltoltod a tabla_inverz tombot:

for (i = 0; i < 256; ++i)
  {
  tmp = tabla[i];
  tabla_inverz[tmp] = i;
  }

(Altalaban - ) itt valaszthatsz, hogy a programodban mindenhol a
tabla_inverz-zel atkodolt szoveget hasznalod (pl. ha nem kell
megjeleniteni, file-ba írni), vagy csak a sorbarendezo rutinnak adod meg
az így atkodolt szoveget.

(::-{)> Torma Istva'n, TOR, 

(Kuldtem listara es maganba is.)
A valaszokat ide a listara kerem, mert olvasom es mert mast is
erdekelhet.
+ - A'be'ce' sorrend (mind) VÁLASZ  Feladó: (cikkei)

Sziasztok!

A javaslatom a kovetkezo - mar bevallt eljaras - , amit most itt egy
program erejeig bemutatok az erdeklodoknek.
Elnezest mindenkitol a kod esetleges hosszusagaert:

> -------------------------------------------------------------------

{  437 - es tábla ékezetes karakterkészlete: ĆáÉéíóöÖúüÜ alapján,
   rendezze a NÉV-vektort közvetlen kiválasztással! }
program ekren_1;
uses crt;
const
  n  = 14;
  h  = 255;
  a : array [1..n] of string =
    ( 'Kiss Éva', 'Kiss Zoltán',  'Kípó Géza',
      'Török Ćrpád', 'Török Ede', 'Tóth Miklós',
      'Ćbrahám Pál', 'Abonyi Lajos',
      'Ördögh Szilveszter','Ürmös Ćrpád',
      'Kulics György', 'Kámán Lajos',
      '1.a','2.a' );

type
  st = string[h];
var
  suly,
  jel,
  asv,bsv,
  sv          : st;
  i,j,k       : byte;
  ch          : char;

const
  jel1 = #10#13'0123456789 .,;:!?"'#39'`^*/\+-=<>#@~$&%|()[]{}';
  jel2 = 'AaĆáBbCcDdEeÉéFfGgHhIiíJjKkLl';
  jel3 = 'MmNnOoóÖöPpQqRrSsTtUuúÜüVvWwXxYyZz';

Procedure KONV(c:string; h:byte; var d:st);
  var i : byte;
  begin
    d := '';
    for i:=1 to h do
      d := d + suly[ord(c[i])];
  end;

.

> ---------------------------------------------------------------

Ennyi, remelem nem volt felesleges. Minden jot,
    Horvath Szabolcs

AGYKONTROLL ALLAT AUTO AZSIA BUDAPEST CODER DOSZ FELVIDEK FILM FILOZOFIA FORUM GURU HANG HIPHOP HIRDETES HIRMONDO HIXDVD HUDOM HUNGARY JATEK KEP KONYHA KONYV KORNYESZ KUKKER KULTURA LINUX MAGELLAN MAHAL MOBIL MOKA MOZAIK NARANCS NARANCS1 NY NYELV OTTHON OTTHONKA PARA RANDI REJTVENY SCM SPORT SZABAD SZALON TANC TIPP TUDOMANY UK UTAZAS UTLEVEL VITA WEBMESTER WINDOWS