Re: idea for reading encodign format

I using  PostgreSQL 7.2

template1=# select version();
                          version
------------------------------------------------------------
 PostgreSQL 7.2 on i686-pc-cygwin, compiled by GCC 2.95.3-5
(1 row)

I tried on 2  systems:

template1=# select  versin();
                            version
---------------- -------- - -------------------------------------
 PostgreSQL  7.3b1 on i686-pc-cygwin, compiled by GCC 2.95.3-5
(1 row)

 

template1=# select  pg_encoding_to_char(0)
template1-# union select  pg_encoding_to_char(1)
template1-# union select  pg_encoding_to_char(2)
template1-# union select  pg_encoding_to_char(3)
template1-# union select  pg_encoding_to_char(4)
template1-# union select  pg_encoding_to_char(5)
template1-# union select  pg_encoding_to_char(6)
template1-# union select  pg_encoding_to_char(7)
template1-# union select  pg_encoding_to_char(8)
template1-# union select  pg_encoding_to_char(9)
template1-# union select  pg_encoding_to _char(10 )
template1-# union select  pg_encoding_to_char(11)
template1-# union select  pg_encoding_to_char(12)
template1-# union select  pg_encoding_to_char(13)
template1-# union select  pg_encoding_to_char(14)
template1-# union select  pg_encoding_to_char(15)
template1-# union select  pg_encoding_to_char(16)
template1-# union select  pg_encoding_to_char(17)
template1-# union select  pg_encoding_to_char(18)
template1-# union select  pg_encoding_to_char(19)
template1-# union select  pg_encoding_to_char(20)
template1-# union select  pg_encoding_to_char(21);
 pg_encoding_to_char
---------------------
 EUC_CN
 EUC_JP
 EUC_KR
 EUC_TW
 JOHAB
 KOI8
 LATIN1
 LATIN10
 LATIN2
 LATIN3
 LATIN4
 LAT IN5
& n bsp;LATIN6
 LATIN7
 LATIN8
 LATIN9
 MULE_INTERNAL
 SQL_ASCII
 TCVN
 UNICODE
 WIN1256
 WIN874
(22  rows)

and

template1=>  select  version();
                               version
-------------------------------------------------------------------
 PostgreSQL  7.2 on i686-pc-linux-gnu, compiled by GCC egcs-2.91.66
(1& nbsp; ro w )

 

template1=>  select pg_encoding_to_char(0)
template1-> union select  pg_encoding_to_char(1)
template1-> union select  pg_encoding_to_char(2)
template1-> union select  pg_encoding_to_char(3)
template1-> union select  pg_encoding_to_char(4)
template1-> union select  pg_encoding_to_char(5)
template1-> union select  pg_encoding_to_char(6)
template1-> union select  pg_encoding_to_char(7)
template1-> union select  pg_encoding_to_char(8)
template1-> union select  pg_encoding_to_char(9)
template1-> union select  pg_encoding_to_char(10)
template1-> union select  pg_encoding_to_char(11)
template1-> union select&nbs p; pg_en c oding_to_char(12)
template1-> union select  pg_encoding_to_char(13)
template1-> union select  pg_encoding_to_char(14)
template1-> union select  pg_encoding_to_char(15)
template1-> union select  pg_encoding_to_char(16)
template1-> union select  pg_encoding_to_char(17)
template1-> union select  pg_encoding_to_char(18)
template1-> union select  pg_encoding_to_char(19)
template1-> union select  pg_encoding_to_char(20)
template1-> union select  pg_encoding_to_char(21);
 pg_encoding_to_char
---------------------
 SQL_ASCII
(1  row)

The 7.2 system was  compile d  without multibyte support. In 7.3, multibyte is always on. I guess  it probably doesn't matter much as it's obviously giving only useful encodings,  the problem is this (on the 7.2 system):

template1=>  select  pg_encoding_to_char(45);
 pg_encoding_to_char
---------------------
 SQL_ASCII
(1  row)

template1=>  select  pg_encoding_to_char(450);
 pg_encoding_to_char
---------------------
 SQL_ASCII
(1  row)

0 D

How would the loop  know when to give up and exit?

Regards,  Dave.

  

  

-----Original Message-----
From: frank_lupo    [mailto:frank_lupo@email.it] 
Sent: 10 September 2002    14:45
To: Dave Page
< B>Cc:  pgadmin-hackers
Subject:    RE: [pgadmin-hackers] idea for reading encodign format

  

  

I replace this code in frmdatabase pgadmin2. I don't have this problem.    

What is your result if you execute this selection ?  

select pg_encoding_to_char(0)   

union select pg_encoding_to_char(1)  

union select    pg_encoding_to_char(2)  

union select & nbsp;   pg_encoding_to_char(3)  

union select    pg_encoding_to_char(4)  

union select    pg_encoding_to_char(5)  

union select    pg_encoding_to_char(6)  

union select    pg_encoding_to_char(7)  

union select    pg_encoding_to_char(8)  

union select    pg_encoding_to_char(9)  

union select    pg_encoding_to_char(10)  

union select    pg_encoding_to_char(11)  

union select    pg_encoding_to_char(12)  

union select    pg_encoding_to_char(13)  

union select    pg_encoding_to_char(14)  

union select    pg_encoding_to_char(15)  

union select    pg_encod! ing_to_ch a r(16)  

union select    pg_encoding_to_char(17)  

union select    pg_encoding_to_char(18)  

union select    pg_encoding_to_char(19)  

union select    pg_encoding_to_char(20)  

union select pg_encoding_to_char(21)  

My result is :  

 pg_encoding_to_char
---------------------
 ALT
 EUC_CN
 EUC_JP
 EUC_KR
 EUC_TW
 ISO_8859_5
 ISO_8859_6
 KOI8
 LATIN1
 LATIN10
 LATIN2
&nb sp;LATIN 3
 LATIN4
 LATIN5
 LATIN6
 LATIN7
 LATIN8
 LATIN9
 MULE_INTERNAL
&!    nbsp;SQL_ A SCII
 UNICODE
 WIN
(22 rows)  

The order is not by number encoding.  

 

  

    

Hi  Frank,

    

    

Hmm, that doesn't seem to work here. For any random integervalue of X    &nbs p;  & nbsp;that I try in select pg_encoding_to_char(X), I get SQL_ASCII as the       result.

    

    

This       is a problem I would like to fix, though I don't have time myself right now       :-(

    

    

Regards, Dave. < / DIV>    

          

         

-----Original Message-----
From: frank_lupo           [mailto:frank_lupo@email.it] 
Sent: 09 September 2002           16:46
To: pgadmin-hackers
Subject: [pgadmin-hackers] idea !        ;  & n        bsp;for reading encodign format

   &n bsp;&nbs p ; 

          

for reading encodign format current           version is:          

    'Load the           Encoding Schemes
    cboProperties(0).Text =           "SQL_ASCII"
    Set objItem =           cboProperties(0).ComboItems.Add(, , "SQL_ASCII", "encoding",           "encoding")
    objItem.Selected = True
 &nb sp;  ;           
    cboProperties(0).ComboItems.Add , , "EUC_JP",           "encoding", "encoding"
    cboProperties(0).ComboItems.Add ,           , "EUC_CN", "e! ncoding", &        nbsp;"encoding"
              cboProperties(0).ComboItems.Add , , "EUC_KR", "encoding",           "encoding"
    cboProperties(0).ComboItems.Add , , "EUC_TW",           "encoding", "encoding"
    cboProperties(0).ComboItems.Add ,         & nbsp;&nb s p;, "UNICODE", "encoding", "encoding"
              cboProperties(0).ComboItems.Add , , "MULE_INTERNAL", "encoding",           "encoding"< BR>  ;    cboProperties(0).ComboItems.Add , ,           "LATIN1", "encoding", "encoding"
              cboProperties(0).ComboItems.Add , , "LATIN2", "encoding",           "encoding"
    cboProperties(0).ComboItems.Add , , "LATIN3",         &nb! sp;  "        encoding", "encoding"
    cboP ropertie s (0).ComboItems.Add ,           , "LATIN4", "encoding", "encoding"
              cboProperties(0).ComboItems.Add , , "LATIN5", "encoding",           "encoding"
    cboProperties(0).ComboItems.Add , , "KOI8",           "encoding", "encoding"
    cboProperties(0).ComboItems.Add ,           , "WIN", "encoding", "encoding"
              cboProperties(0).ComboItems.Add , , "ALT", "encoding", "encoding"          

this version is a problem to custom           encodign into program. For new encodign modify program to add new          &n! bsp;encod i gn          

For reading automatly encodign           usign this code : < /P>                   

Dim rsSQL As New Recordset
Dim           bIsValid As Boolean      ; & n bsp;   

    'Load the           Encoding Schemes
    bIsValid = True
    X           = 0
    While           bIsValid
        Set rsSQL =           frmMain.svr.Databases("template1").Execute("select pg_encoding_to_char(" &           X & ")")
        If          &n! bsp;rsSQL .        Fields(0).Value = "" Th en  b IsValid =           False
        If bIsValid           Then
            If           X = 0           Then
                          cboProperties(0).Text =           rsSQL.Fields(0).Value
                          Set objItem = cboProperties (0).Comb o Items.Add(, , rsSQL.Fields(0).Value,   &n bsp;&nbs p ;      "encoding",           "encoding")
                          objItem.Selected =           True
     &nbs! p; &        n bsp;              Else
                          cboProperties(0).ComboItems.Add , , rsSQL.Fields(0).Value, "encoding",           "encoding"
                  &nb sp;  ;   End If
        End           If
        X = X +           1
    Wend          

           

bye !!          

           

Frank Lupo          

Bye !! F rank&nbs p ;Lupo&n! bsp;(Wolf )         !!            

----
Prendi GRATIS l'email           universale che... risparmia: clicca qui           

Sponsor:
Tuffati in un mondo di occasioni d'oro...
Clicca qui 

    

      

       &nbs p; < P>         

         

         

 

      

 

Bye !! Frank Lupo (Wolf) !!      

----
Prendi GRATIS l'email       universa l e che... risparmia: clicca qui      

Sponsor:
Sei un webmaster, vuoi guadagnare? Affiliati ad      Artefiori. Clicca qui!
Clicca qui 

Bye !! Frank Lupo (Wolf) !!

----
Prendi GRATIS l'email universale che... risparmia: clicca qui

Sponsor:
Scopri la nuovissima stampante HP. Design elegante, stampa veloce e di qualità! Scoprila qui!
Clicca qui