我正在将 BDE 查询（Paradox）转换为 Firebird（2.5，而不是 3.x），并且其中有一个非常方便的转换：
select TRIM(' 1') as order1, CAST(' 1' AS INTEGER) AS order2 --> 1
select TRIM(' 1 bis') as order1, CAST(' 1 bis' AS INTEGER) AS order2 --> 1
然后按转换值排序，然后修剪值（ORDER order2，order1）为我提供我需要的结果：
1
1 bis
2 ter
100
101 bis
但是，在 Firebird 中转换错误的整数会引发异常，并且我没有找到任何方法来提供相同的结果。我想我可以判断一个数字是否存在，如下所示，但我找不到提取它的方法。
TRIM(' 1 bis') similar to '[ [:ALPHA:]]*[[:DIGIT:]]+[ [:ALPHA:]]*'
[编辑]
我必须处理文本在数字之前的情况，因此使用@Arioch'The 的触发器，我运行得很好：
SET TERM ^ ;
CREATE TRIGGER SET_MYTABLE_INTVALUE FOR MYTABLE ACTIVE
BEFORE UPDATE OR INSERT POSITION 0
AS
DECLARE I INTEGER;
DECLARE S VARCHAR(13);
DECLARE C VARCHAR(1);
DECLARE R VARCHAR(13);
BEGIN
IF (NEW.INTVALUE is not null) THEN EXIT;
S = TRIM( NEW.VALUE );
R = NULL;
I = 1;
WHILE (I <= CHAR_LENGTH(S)) DO
BEGIN
C = SUBSTRING( S FROM I FOR 1 );
IF ((C >= '0') AND (C <= '9')) THEN LEAVE;
I = I + 1;
END
WHILE (I <= CHAR_LENGTH(S)) DO
BEGIN
C = SUBSTRING( S FROM I FOR 1 );
IF (C < '0') THEN LEAVE;
IF (C > '9') THEN LEAVE;
IF (C IS NULL) THEN LEAVE;
IF (R IS NULL) THEN R=C; ELSE R = R || C;
I = I + 1;
END
NEW.INTVALUE = CAST(R AS INTEGER);
END^
SET TERM ; ^
转换这样的表，你必须添加一个特殊的索引整数列来保存提取的整数数据。
注意，这个查询在使用“非常方便的转换”时实际上相当糟糕：您应该使用索引列来对大量数据进行排序（排序），否则您将执行缓慢并浪费大量内存/磁盘用于临时排序桌子。
因此，您必须添加额外的整数索引列并在查询中使用它。
下一个问题是如何填充该列。
当您将整个数据库和应用程序从 BDE 迁移到 Firebird 时，最好只执行一次。从那时起，让您的应用程序在输入新数据行时正确填充
varcharinteger然后，您的转换器应用程序可以完成一次转换。 或者您可以使用可选的
Stored ProcedureExecute Block如果您需要保留遗留应用程序，只插入文本列而不插入整数列，那么我认为您必须在 Firebird 中使用
BEFORE UPDATE OR INSERT无论您是否编写过程或触发器来填充所述添加的整数索引列，您都必须对字符进行简单的循环，从第一个数字复制字符串到第一个非数字。
类似这样的事情
CREATE TRIGGER my_trigger FOR my_table
BEFORE UPDATE OR INSERT
AS
DECLARE I integer;
DECLARE S VARCHAR(100);
DECLARE C VARCHAR(100);
DECLARE R VARCHAR(100);
BEGIN
S = TRIM( NEW.MY_TXT_COLUMN );
R = NULL;
I = 1;
WHILE (i <= CHAR_LENGTH(S)) DO
BEGIN
C = SUBSTRING( s FROM i FOR 1 );
IF (C < '0') THEN LEAVE;
IF (C > '9') THEN LEAVE;
IF (C IS NULL) THEN LEAVE;
IF (R IS NULL) THEN R=C; ELSE R = R || C;
I = I + 1;
END
NEW.MY_INT_COLUMN = CAST(R AS INTEGER);
END;
在此示例中，您的
ORDER order2, order1SELECT ..... FROM my_table ORDER BY MY_INT_COLUMN, MY_TXT_COLUMN
此外，您的列似乎实际上包含复合数据：整数索引和可选的文本后缀。如果是这样，那么您拥有的数据没有标准化，最好重组表。
CREATE TABLE my_table (
ORDER_Int INTEGER NOT NULL,
ORDER_PostFix VARCHAR(24) CHECK( ORDER_PostFix = TRIM(ORDER_PostFix) ),
......
ORDER_TXT COMPUTED BY (ORDER_INT || COALESCE( ' ' || ORDER_PostFix, '' )),
PRIMARY KEY (ORDER_Int, ORDER_PostFix )
);
当您将数据从 Paradox 移动到 Firebird 时 - 让您的转换器应用程序检查并将这些值（例如“1 bis”）拆分为两个新列。
然后你的查询就像这样
SELECT ORDER_TXT, ... FROM my_table ORDER BY ORDER_Int, ORDER_PostFix
如果您使用的是fb2.5，您可以使用以下内容：
execute block (txt varchar(100) = :txt )
returns (res integer)
as
declare i integer;
begin
i=1;
while (i<=char_length(:txt)) do begin
if (substring(:txt from i for 1) not similar to '[[:DIGIT:]]')
then txt =replace(:txt,substring(:txt from i for 1),'');
else i=i+1;
end
res = :txt;
suspend;
end
在fb3.0中你有更方便的方法来做同样的事情
select
cast(substring(:txt||'#' similar '%#"[[:DIGIT:]]+#"%' escape '#') as integer)
from rdb$database
我为此编写了一个存储过程：
SET TERM ^ ;
CREATE PROCEDURE FILTER_BY_CHARS (
Str VARCHAR(1000), FilterChars VARCHAR(200))
returns (
Result VARCHAR(1000))
as
declare variable i INTEGER;
declare variable Chr CHAR(1);
begin
Result = '';
i = 1;
while (i <= char_length(Str)) do
begin
chr = substring(Str from i for 1);
if (FilterChars containing Chr) then Result = Result || Chr;
i=i+1;
end
suspend;
end^
SET TERM ; ^
用这个你可以写：
CAST(SELECT Result FROM FILTER_BY_CHARS(' 1 bis', '01234567890') AS INTEGER)
--assuming that the field is varchar(15))
select cast(field as integer) from table;
在 firebird 2.5 版本中工作。