Szia!

A Norton Guide-ban van egy Directory nevu fuggveny, sosem hasznaltam. (Van
mas is, de azt idejetmultnak titulalja a NG)

Kb. igy dolgozik:

aTomb = Directory( cFileMaszk, cAttribMaszk)

cFileMaszk a szokasos, * es ? megengedett, teljes path is.
cAttribMaszk:
H: rejtett file-ok is
S: system file-ok is
D: directory-k is
V: DOS volume label es semmi mas

a visszaadott aTomb tulkeppen tomboket tartalmaz, minden a szuresbe beleeso
file-rol egy tombot, amelynek a szerkezete allitolag a kovetkezo:
1:      File nev
2:      Meret
3:      Datum
4:      Ido
5:      Attributumok

Udv: KG

Sziasztok !

Foglalkozik-e valaki mesterseges intelligencia (genetikai algoritmusok stb.) 
programok fejlesztesevel C++-ban vagy Common Lisp-ben ?
En elsosorban genetikai algoritmusokkal foglalkozom de szivesen beszelnek mas  
MI teruleten dolgozo programozokkal.

Udvozlettel,

G. Gyorgy

Hi !

Ugy tunik vannak itt clipperesek is ! :-)
Koszonom Vincze Szilard, Velencei Tibor, Toth Peter-nek a megoldasokat.
A toolsos megoldas azert nem jutott eszembe, mert nem volt keznel a
tools, csak a plain CA-Clipper.
A DIR beolvasos lepest szerettem volna eredetileg elkerulni, de kozben
rajottem, hogy lehet megis csak az fog nekem kelleni, mert ugyanabbol a
konyvtarbol tobb allomany datuma is kell.

Megegyszer koszi a valaszoloknak !

Udv:
-- 
Csiszar L.
http://www.stadium.hu/szt/

Hali !

Ha emlekeim nem csalnak, regebben az ADIR fuggveny volt, amely visszaadott
minden infot a kivant filerol file csoportrol.
Bar ezt az 5.2ben mar nem annyira tamogatja. ;)) De azert lehet hasznalni.
Helyette az AEVAL fuggvenyt ajanlja.
Ha neked meg van a clipper norton guideja, akkor gyerekjatek megtalalni
benne. Jol el van latva peldakkal.
Ugyanakkor nem tudom, hogy hasznalod-e a clipper tools(ct.lib, ctus.obj)
nevu kiegeszitest, amelyben van olyan fuggveny, ami visszaadja egy file
datumat, idejet (FILEDATE, FILETIME fuggvenyek). Ehhez is van norton gida.
Remelem tudtam segiteni.

Gabor

>Tud valaki valami egyszeru modszert
>arra hogy clipperben megtudjam egy
>tetszoleges file datumat ? Valami
>GetFileDate(filename)  szeru fuggvenyt
>keresnek.

A CA-Tools-ban van ilyen.  A neve: FileDate().  Ha nincs meg, de
van C nyelved, vagy ASM, akkor az extend system segitsegevel
viszonylag egyszeruen elkeszitheto, a megfelelo
rendszerhivasokkal.

BR, WW

> Tud valaki valami egyszeru modszert arra hogy clipperben
> megtudjam egy tetszoleges file datumat ? Valami 
> GetFileDate(filename) szeru fuggvenyt keresnek.

Az alap Clipperben ezt az ADIR() funkcioval (2-3 sor),
a CA Toolsban a FILEDATE() funkcioval (1 sor) teheted meg.

Hello!

Gyakorlott programozoktol, esetleg olyanoktol varok segitseget,
akik tanitottak, tanitanak C es/vagy C++-nyelven programozast.
Most kezdtem el a C tanulasat, beszereztem konyveket, de nem
igazan tudom, hogy hol is kezdjem. (Tudom: az elejen esszeru..
;-)   )

A keresem: egy par mondatban, cimszavakban foglaljatok nekem
ossze, hogy kb. milyen tematika lehet a C tanulasaban a
legcelravezetobb. Emellett szivesen varok meg ajanlatokat arra,
hogy milyen konyvet erdemes beszerezni ebben a temaban.

A valaszokat CC-ben a magan cimemre is kuldjetek el, akkor
hamarabb megtalalom....

Elore is koszi mindenkinek!

Zsolt

> ========================================
              Szabo Zsolt
          
> ========================================

> Tud valaki valami egyszeru modszert arra hogy clipperben megtudjam egy
> tetszoleges file datumat ? Valami GetFileDate(filename)  szeru fuggvenyt
> keresnek.

#Include 'Directry.Ch'

Datum:=GetFileDate('ALLOMANY.DBF')
If Datum==-1
  ?'Nincs ilyen allomany!'
Else
  ?'File datuma:',Datum
EndIf

Function GetFileDate(FileName)
  Local Tomb
  
  Tomb:=Directory(FileName)
  Return If(Empty(Tomb),-1,Tomb[1][F_DATE])
  

Hasonloan kerdezhetok le:
FileNev:	F_NAME
Meret:	F_SIZE
Datum:	F_DATE
Ido:		F_TIME
Attrib:	F_ATTR	

Toth Peter (TpS) 
mailto:
uin:2057391

Hello emberek

egy erdekes problemaval allok szemben. Access-bol adok at a Wordnek
adatokat ugy, hogy a Word egy korlevelben definialt mezokent kapja meg.

Az Access-tablazatban definialt mezo pl datum, hosszu (a datum melle meg
a napot is kiirja) ez a Wordben sima datumkent jelenik meg
Ha az Access-mezo ido-tipusu, 24 oras formatumu, akkor a Wordben bar
megjelenik 24 oras formatumban, de hozzateszi a szazadmasodperceket is,
ami egy hivatalos levelben igen hulyen tud kinezni.

Az az erzesem, hogy ez egy OLE definicios hiba, es nem sok mindent lehet
vele kezdeni, talan a kovetkezo OLE vagy Office-verzioban. De ha
valakinek van otlete ennek a megoldasara, annak nagyon orulnek.

Udv
Tibor

Szia!

> Tud valaki valami egyszeru modszert arra hogy clipperben megtudjam egy
> tetszoleges file datumat ? Valami GetFileDate(filename)  szeru fuggvenyt
> keresnek.

> A lenyeg, hogy ne nyissa meg a filet, hanem csak a datumat (illetve az
> idot is) adja vissza.

Hat nem szep megoldas, de ha mar clipper, nincs lelkiismeretfurdalasom
a ganyolas miatt (ezesetben!): ;) 

function GetFileDate(filename)
  local d:={nil},t:={nil}
  aDir(filename,,,d,t)
return DtoC(d[1])+t[1]

Tehat ide beadod a filenevet, es visszakapod a datumot, idot
yy.mm.ddhh:mm:ss (ev.honap.nap ora:perc:masodperc)
formaban. (Ha a century kapcsolo be van kapcsolva, akkor az
evszam negyjegyu!) Nekem ilyen formaban kellett, olyanra alakithatod,
amilyen neked szukseges.

Eleg csunya, nem feltetlen hatekony, de mukodik. Es ha kevesszer,
ritkan kell alkalmazni, akkor hasznalhato.

Ha nem vagy biztos abban, hogy a file letezik (en biznyithatoan biztos
voltam benne, azazhogy biztos voltam, hogy bizonyithatoan letezik ;):

function GetFileDate(filename)
  local d:={nil},t:={nil},n
  n:=aDir(filename,,,d,t)
  if (n=0)
    return filename+' not found'
  endIf
return DtoC(d[1])+t[1]

Esetleg, ha c-s rutint tudsz fuzni a progidhoz, a getftime nevu 
fuggveny rendelkezesedre all. (borland c-bol biztosan).
Igy lehet hogy szebb, de macerasabb az implementalas.

Imho nem erdemes c-ben szarakodni ilyen problema miatt,
kiveve, ha feltetlenul gyors fuggvenyre van szukseged.
De ilyenkor adott esetben a clipperes aDir-t is maskeppen
erdemes hasznlani.

Ha nagyon szajbaragos voltam sorry ;)

Udv:
Tibi.