From: "Aivars" <allefm.izmet@lieko.latnet.aplami.lv>


Subject: Re: proprietaarie charseti foxii
To: tehnika@latnet.lv


"ZBH" <zbh@rsf.rtu.lv> wrote in message
news:Pine.BSO.4.33.0302261818230.24-100000@mail.arhivi.lv...
> kaada veidaa foxii vareet buut nodefineets pastaisiitaas stringu
> charset konvertaacijs tabuls, peec kuraam vadaas sys(15,...,...) ?
> nekaad sakariig manuaal par foxi pasam ar neir :(

Domaaju, ka visertaal taisiit shitaadi

================================
if not file( "TABULA.DBF" )
 create dbf TABULA.DBF (no C (1), uz C (1))
 wait window nowait "Vispirms sagatavo tulkosanas tabulu!"
 set sysmenu automatic
 browse title  "^N jaunam ierakstam"
 close all
 cancel
endif
use tabula.dbf
index on asc(no) tag no
sys15mem=""

for i = 0 to 255
  if seek(i)
 sys15mem=sys15mem + uz
  else
 sys15mem=sys15mem + CHR(i)
  endif
next i
save to tabula.mem all like sys15mem
close all

================================


No FPD 2.6 helpa.


SYS(15, <expC1>, <expC2>)

----------------------------------------------------------------
Translates second character string by first character string.
Return value - Character
----------------------------------------------------------------

This function is primarily intended for the convenience of European users
who must use letters with diacritical marks.  Since there are different
versions of most vowels (with different diacritical marks), indexing on
fields containing such characters doesn't preserve normal alphabetical
order.

This function takes each character in the character expression <expC2> and
uses the character's numeric value as a subscript into the table <expC1> and
replaces the character in <expC2> with the character found at that position
in the table.

If table <expC1> doesn't have a character corresponding to a character from
<expC2>, those characters in <expC2> aren't translated.

We have included sample translation tables in a memory variable file called
EUROPEAN.MEM.  Stored in this memory variable file is a character variable
called EUROPEAN, for use with FoxPro for MS-DOS.  Another character
variable, EUROANSI, is provided for use with FoxPro for Windows.  These
memory variables can be used with SYS(15) to translate characters with
diacritical marks to the corresponding characters without the diacritical
marks.  EUROPEAN.MEM is located in the directory in which you install
FoxPro.


#################################################################


From: "GunarsF" <guga@latnet.lv>

Jau ir bisku piemirsies, bet cik atceros, jamam vajadzeeja chrtran()
funkciju izmantot. 2.6. pat bija sis tas defineets.


###################################################################

From: Karlis Gobleja <charles@microlink.lv>

Kaada FOXa versija? Ja taas ir pashtaisiitas tabulas, tad taas var buut
dajebkur. FPD26 izmantoja failu foxpro.int, tachu tam nav nekaads sakars ar
SYS( 15, ..., ... ).

Kaarlis

####################################################################