Fonts

Anyone know how i would go about writing all possible fonts to an ini file .

have tried many things, closest thing i got was messing around with stuff in vincula...

writeini ini/font.ini font test $replace($gettok($msn.registry(HKEY_CURRENT_USER\Software\Microsoft\MSNChat\4.0\\FontName),1,59),$chr(32),\

that returns me 1 font, and its tomaha, because thats the font i have set.....

suggestions please?

here ya go ddp, this should work just edit it how u want it to work ..

afont {
  var %x = 1, %y = $sdir(Select A Directory)
  while (%x <= $findfile(%y,*.ttf,0)) { write test.txt $findfile(%y,*.ttf,%x) | inc %x }
}

D-Tox/Synedyne

here ya go ddp, this should work just edit it how u want it to work ..

 

afont {
  var %x = 1, %y = $sdir(Select A Directory)
  while (%x <= $findfile(%y,*.ttf,0)) { write test.txt $findfile(%y,*.ttf,%x) | inc %x }
}

 

D-Tox/Synedyne

WORKS FOR ME

Thank you

Thanks alot.

Another one you can use is this...

alias afont {
  set %y $sdir(C:\,Select A Directory)
  .echo -q $shortfn($findfile(%y,*.ttf,0,if (!$read(test.txt,w,* $+ $1-)) write test.txt $1-))
}