Gammon Forum

\E5\A4\A7\E5\AE\B6\E5\A5\BD

DatabaseOpen ("db", GetInfo (66) .. "utf8_test.db", 6)

DatabaseExec ("db", [[
DROP TABLE IF EXISTS test;
CREATE TABLE test(
        name  TEXT NOT NULL
      );
      ]])
      
hello = utils.fromhex ("E5A4A7E5AEB6E5A5BD")  -- utf8: 大家好

print ("length before add=", #hello)

-- insert a record
DatabasePrepare ("db", "INSERT INTO test (name) VALUES ('" .. hello .. "')") 
DatabaseStep ("db") 
DatabaseFinalize ("db")  
      
-- prepare a query
DatabasePrepare ("db", "SELECT * from test")

-- execute to get the first row
rc = DatabaseStep ("db")  -- read first row

-- now loop, displaying each row, and getting the next one
while rc == 100 do
  
  values = DatabaseColumnValues ("db")

  print ("length after add=", #values [1])
  print ("name=", utils.tohex (values [1]))

  rc = DatabaseStep ("db")  -- read next row

end -- while loop

-- finished with the statement
DatabaseFinalize ("db")


DatabaseClose ("db")  -- close it

length before add= 9
length after add= 9
name= E5A4A7E5AEB6E5A5BD

/print (utils.tohex (utils.utf8encode ( { 22823, 23478, 22909 } )))

E5A4A7E5AEB6E5A5BD

use Encode;
DatabaseOpen ("db", GetInfo (66) . "utf8_test.db", 6);

DatabaseExec ("db", qq{
DROP TABLE IF EXISTS test;
CREATE TABLE test(
        name  TEXT NOT NULL
      );
      });
my $hello = "\xE5\xA4\xA7\xE5\xAE\xB6\xE5\xA5\xBD";
Note("length before insert " . length $hello);

DatabasePrepare ("db", "INSERT INTO test (name) VALUES ('" . $hello . "')");
Note("1 > " . DatabaseError("db"));
DatabaseStep ("db") ;
Note("2 > " . DatabaseError("db"));
DatabaseFinalize ("db");
Note("3 > " . DatabaseError("db"));

my $statue = DatabasePrepare("db", "SELECT * from test");
if ($statue != 0) {
   Note("SQLERROR : " . DatabaseError("db"));
   return -1;
}
my $rc = DatabaseStep("db");
my $values;
if ($rc == 100) {
    $values = DatabaseColumnValues("db");
    my $string;
    for my $v(Win32::OLE::in $values){
        printDec($v);
        $string .= $v;
        $string .= ', ';
    }
    Note("$string");
}
DatabaseFinalize("db");
DatabaseClose ("db");

###########################
sub printDec{
    my ($string) = @_;
    my $i;
    Note("whole word length : " . length $string);
    for my $char (split //,$string){
        $i++;
        Note("$i : ". ord $char);
    }
}

length before insert 9
1 > unrecognized token: "'澶у濂?)"
2 > unrecognized token: "'澶у濂?)"
3 > unrecognized token: "'澶у濂?)"

DatabasePrepare ("db", "INSERT INTO test (name) VALUES ('$hello')");

DatabasePrepare ("db", "INSERT INTO test (name) VALUES (substr('" . $hello . "\\')");

DatabasePrepare ("db", "INSERT INTO test (name) VALUES (substr('$hello\\',1,length('$hello\\') - 1))");

length before insert 9
1 > not an error
2 > unknown error
3 > not an error
whole word length : 10
1 : 229
2 : 164
3 : 167
4 : 229
5 : 174
6 : 182
7 : 229
8 : 165
9 : 189
10 : 92

length before insert 9
1 > not an error
2 > unknown error
3 > not an error
whole word length : 8
1 : 229
2 : 164
3 : 167
4 : 229
5 : 174
6 : 182
7 : 229
8 : 165

length before add= 9
length after add= 8
name= E5A4A7E5AEB6E5A5

hello = utils.fromhex ("E5A4A7E5AEB6E5A5BD")

for i = 1, #hello do

  local c = string.byte (hello:sub (i, i))
  print (string.format ("%02X = %i", c, c))
end

E5 = 229
A4 = 164
A7 = 167
E5 = 229
AE = 174
B6 = 182
E5 = 229
A5 = 165
BD = 189

DatabasePrepare ("db", "INSERT INTO test (name) VALUES (substr('" . $hello . "\\')");

length before insert 9
1 > not an error
2 > unknown error
3 > not an error
whole word length : 9
1 : 229
2 : 164
3 : 167
4 : 229
5 : 174
6 : 182
7 : 229
8 : 165
9 : 189
大家好,