в db2 почему 'CONTAINS SQL' играет определенную роль c при преобразовании символов половинной ширины в символы полной ширины - PullRequest
Новая
       15

в db2 почему 'CONTAINS SQL' играет определенную роль c при преобразовании символов половинной ширины в символы полной ширины

0 голосов
/ 20 марта 2020

мы использовали REPLACE () для преобразования строки символов, переданной в качестве аргумента, из символов полуширины в символы полной ширины (замените все символы полуширины на REPLACE ()).

я). Объявляя 'CONTAINS SQL' и создавая FUNCTION, мы смогли вызвать FUNCTION из хранимой процедуры с помощью SQL, такой как обновление таблицы 

create or replace procedure zz_kit2(
out O_VALUE1 VARCHAR(20000), OUT O_VALUE2 VARCHAR(20000)    
)
SPECIFIC zz_kit2

P1:BEGIN
--123456ABCDEF   ->123456ABCABC
update TBL_MEM_ACC SET FILLER1 = FNC_NAME2('A');
set O_VALUE1=FNC_NAME('A');
set O_VALUE2=FNC_NAME2('A');
END P1

ii). Не объявляя 'CONTAINS SQL', обновление таблицы не работает

Оператор не был обработан, поскольку функция "FNC_NAME2" разрешена для указания c функции "FNC_NAME2", которая недопустима

в контексте, где он используется ... SQLCODE = -390, SQLSTATE = 42887, DRIVER = 4.24.92 

create or replace procedure zz_kit2(
out O_VALUE1 VARCHAR(20000), OUT O_VALUE2 VARCHAR(20000)    
)
SPECIFIC zz_kit2

P1:BEGIN
--123456ABCDEF   ->123456ABCABC
--update TBL_MEM_ACC SET FILLER1 = FNC_NAME2('A');
set O_VALUE1=FNC_NAME('A');
set O_VALUE2=FNC_NAME2('A');
END P1

a) Функция FNC_NAME с объявлением 'CONTAINS_ SQL б) FNC_NAME2 функция без 'CONTAINS_ SQL объявлена ​​

функция с' CONATINS SQL '

CREATE OR REPLACE FUNCTION FNC_NAME(
IN I_ORG_STR   VARCHAR(5000)
)
RETURNS VARCHAR(20000)
SPECIFIC FNC_NAME
LANGUAGE SQL
CONTAINS SQL

BEGIN
DECLARE V_D_CNT  INTEGER;
DECLARE V_HD_CNT INTEGER;
DECLARE V_RESULT VARCHAR(20000) DEFAULT NULL;

DECLARE EXIT HANDLER FOR SQLEXCEPTION
BEGIN
    RETURN V_RESULT;    
END;


IF  I_ORG_STR IS NULL OR I_ORG_STR = ''  THEN
    RETURN V_RESULT;
END IF;

SET V_RESULT = I_ORG_STR;

SET V_RESULT = REPLACE( V_RESULT, '　', '' );     
SET V_RESULT = REPLACE( V_RESULT, ' ', '' );      

SET V_RESULT = REPLACE( V_RESULT, 'ﾟ', '゜' );    
SET V_RESULT = REPLACE( V_RESULT, 'ﾞ', '゛' );    

--カナ、ひら小文字
SET V_RESULT = REPLACE( V_RESULT, 'ｱ', 'ア' );
SET V_RESULT = REPLACE( V_RESULT, 'ｲ', 'イ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｳ', 'ウ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｴ', 'エ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｵ', 'オ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｶ', 'カ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｷ', 'キ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｸ', 'ク' );
SET V_RESULT = REPLACE( V_RESULT, 'ｹ', 'ケ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｺ', 'コ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｻ', 'サ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｼ', 'シ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｽ', 'ス' );
SET V_RESULT = REPLACE( V_RESULT, 'ｾ', 'セ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｿ', 'ソ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾀ', 'タ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾁ', 'チ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾂ', 'ツ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾃ', 'テ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾄ', 'ト' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾅ', 'ナ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾆ', 'ニ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾇ', 'ヌ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾈ', 'ネ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾉ', 'ノ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾊ', 'ハ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾋ', 'ヒ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾌ', 'フ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾍ', 'ヘ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾎ', 'ホ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾏ', 'マ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾐ', 'ミ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾑ', 'ム' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾒ', 'メ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾓ', 'モ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾔ', 'ヤ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾕ', 'ユ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾖ', 'ヨ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾗ', 'ラ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾘ', 'リ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾙ', 'ル' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾚ', 'レ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾛ', 'ロ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾜ', 'ワ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｦ', 'ヲ' );
SET V_RESULT = REPLACE( V_RESULT, 'ﾝ', 'ン' );

SET V_RESULT = REPLACE( V_RESULT, 'ァ', 'ア' );
SET V_RESULT = REPLACE( V_RESULT, 'ィ', 'イ' );
SET V_RESULT = REPLACE( V_RESULT, 'ゥ', 'ウ' );
SET V_RESULT = REPLACE( V_RESULT, 'ェ', 'エ' );
SET V_RESULT = REPLACE( V_RESULT, 'ォ', 'オ' );
SET V_RESULT = REPLACE( V_RESULT, 'ャ', 'ヤ' );
SET V_RESULT = REPLACE( V_RESULT, 'ュ', 'ユ' );
SET V_RESULT = REPLACE( V_RESULT, 'ョ', 'ヨ' );
SET V_RESULT = REPLACE( V_RESULT, 'ッ', 'ツ' );
SET V_RESULT = REPLACE( V_RESULT, 'ヮ', 'ワ' );

SET V_RESULT = REPLACE( V_RESULT, 'ｧ', 'ア' );
SET V_RESULT = REPLACE( V_RESULT, 'ｨ', 'イ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｩ', 'ウ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｪ', 'エ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｫ', 'オ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｬ', 'ヤ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｭ', 'ユ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｮ', 'ヨ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｯ', 'ツ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｰ', 'ー' );

SET V_RESULT = REPLACE( V_RESULT, 'ぁ', 'あ' );
SET V_RESULT = REPLACE( V_RESULT, 'ぃ', 'い' );
SET V_RESULT = REPLACE( V_RESULT, 'ぅ', 'う' );
SET V_RESULT = REPLACE( V_RESULT, 'ぇ', 'え' );
SET V_RESULT = REPLACE( V_RESULT, 'ぉ', 'お' );
SET V_RESULT = REPLACE( V_RESULT, 'ゃ', 'や' );
SET V_RESULT = REPLACE( V_RESULT, 'ゅ', 'ゆ' );
SET V_RESULT = REPLACE( V_RESULT, 'ょ', 'よ' );
SET V_RESULT = REPLACE( V_RESULT, 'っ', 'つ' );
SET V_RESULT = REPLACE( V_RESULT, 'ゎ', 'わ' );

SET V_D_CNT  = POSSTR( V_RESULT, '゛' );
SET V_HD_CNT = POSSTR( V_RESULT, '゜' );

IF V_D_CNT > 0 OR V_HD_CNT > 0 THEN
    SET V_RESULT = REPLACE( V_RESULT, 'カ゛', 'ガ' );
    SET V_RESULT = REPLACE( V_RESULT, 'キ゛', 'ギ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ク゛', 'グ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ケ゛', 'ゲ' );
    SET V_RESULT = REPLACE( V_RESULT, 'コ゛', 'ゴ' );

    SET V_RESULT = REPLACE( V_RESULT, 'サ゛', 'ザ' );
    SET V_RESULT = REPLACE( V_RESULT, 'シ゛', 'ジ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ス゛', 'ズ' );
    SET V_RESULT = REPLACE( V_RESULT, 'セ゛', 'ゼ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ソ゛', 'ゾ' );

    SET V_RESULT = REPLACE( V_RESULT, 'タ゛', 'ダ' );
    SET V_RESULT = REPLACE( V_RESULT, 'チ゛', 'ヂ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ツ゛', 'ヅ' );
    SET V_RESULT = REPLACE( V_RESULT, 'テ゛', 'デ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ト゛', 'ド' );

    SET V_RESULT = REPLACE( V_RESULT, 'ハ゛', 'バ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ヒ゛', 'ビ' );
    SET V_RESULT = REPLACE( V_RESULT, 'フ゛', 'ブ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ヘ゛', 'ベ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ホ゛', 'ボ' );

    SET V_RESULT = REPLACE( V_RESULT, 'ハ゜', 'パ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ヒ゜', 'ピ' );
    SET V_RESULT = REPLACE( V_RESULT, 'フ゜', 'プ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ヘ゜', 'ペ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ホ゜', 'ポ' );

    SET V_RESULT = REPLACE( V_RESULT, 'ウ゛', 'ヴ' );

    SET V_RESULT = REPLACE( V_RESULT, 'か゛', 'が' );
    SET V_RESULT = REPLACE( V_RESULT, 'き゛', 'ぎ' );
    SET V_RESULT = REPLACE( V_RESULT, 'く゛', 'ぐ' );
    SET V_RESULT = REPLACE( V_RESULT, 'け゛', 'げ' );
    SET V_RESULT = REPLACE( V_RESULT, 'こ゛', 'ご' );

    SET V_RESULT = REPLACE( V_RESULT, 'さ゛', 'ざ' );
    SET V_RESULT = REPLACE( V_RESULT, 'し゛', 'じ' );
    SET V_RESULT = REPLACE( V_RESULT, 'す゛', 'ず' );
    SET V_RESULT = REPLACE( V_RESULT, 'せ゛', 'ぜ' );
    SET V_RESULT = REPLACE( V_RESULT, 'そ゛', 'ぞ' );

    SET V_RESULT = REPLACE( V_RESULT, 'た゛', 'だ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ち゛', 'ぢ' );
    SET V_RESULT = REPLACE( V_RESULT, 'つ゛', 'づ' );
    SET V_RESULT = REPLACE( V_RESULT, 'て゛', 'で' );
    SET V_RESULT = REPLACE( V_RESULT, 'と゛', 'ど' );

    SET V_RESULT = REPLACE( V_RESULT, 'は゛', 'ば' );
    SET V_RESULT = REPLACE( V_RESULT, 'ひ゛', 'び' );
    SET V_RESULT = REPLACE( V_RESULT, 'ふ゛', 'ぶ' );
    SET V_RESULT = REPLACE( V_RESULT, 'へ゛', 'べ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ほ゛', 'ぼ' );

    SET V_RESULT = REPLACE( V_RESULT, 'は゜', 'ぱ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ひ゜', 'ぴ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ふ゜', 'ぷ' );
    SET V_RESULT = REPLACE( V_RESULT, 'へ゜', 'ぺ' );
    SET V_RESULT = REPLACE( V_RESULT, 'ほ゜', 'ぽ' );
END IF;


-- 英数
SET V_RESULT = TRANSLATE( V_RESULT );  

SET V_RESULT = REPLACE( V_RESULT, 'A', 'Ａ' );
SET V_RESULT = REPLACE( V_RESULT, 'B', 'Ｂ' );
SET V_RESULT = REPLACE( V_RESULT, 'C', 'Ｃ' );
SET V_RESULT = REPLACE( V_RESULT, 'D', 'Ｄ' );
SET V_RESULT = REPLACE( V_RESULT, 'E', 'Ｅ' );
SET V_RESULT = REPLACE( V_RESULT, 'F', 'Ｆ' );
SET V_RESULT = REPLACE( V_RESULT, 'G', 'Ｇ' );
SET V_RESULT = REPLACE( V_RESULT, 'H', 'Ｈ' );
SET V_RESULT = REPLACE( V_RESULT, 'I', 'Ｉ' );
SET V_RESULT = REPLACE( V_RESULT, 'J', 'Ｊ' );
SET V_RESULT = REPLACE( V_RESULT, 'K', 'Ｋ' );
SET V_RESULT = REPLACE( V_RESULT, 'L', 'Ｌ' );
SET V_RESULT = REPLACE( V_RESULT, 'M', 'Ｍ' );
SET V_RESULT = REPLACE( V_RESULT, 'N', 'Ｎ' );
SET V_RESULT = REPLACE( V_RESULT, 'O', 'Ｏ' );
SET V_RESULT = REPLACE( V_RESULT, 'P', 'Ｐ' );
SET V_RESULT = REPLACE( V_RESULT, 'Q', 'Ｑ' );
SET V_RESULT = REPLACE( V_RESULT, 'R', 'Ｒ' );
SET V_RESULT = REPLACE( V_RESULT, 'S', 'Ｓ' );
SET V_RESULT = REPLACE( V_RESULT, 'T', 'Ｔ' );
SET V_RESULT = REPLACE( V_RESULT, 'U', 'Ｕ' );
SET V_RESULT = REPLACE( V_RESULT, 'V', 'Ｖ' );
SET V_RESULT = REPLACE( V_RESULT, 'W', 'Ｗ' );
SET V_RESULT = REPLACE( V_RESULT, 'X', 'Ｘ' );
SET V_RESULT = REPLACE( V_RESULT, 'Y', 'Ｙ' );
SET V_RESULT = REPLACE( V_RESULT, 'Z', 'Ｚ' );

SET V_RESULT = REPLACE( V_RESULT, 'ａ', 'Ａ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｂ', 'Ｂ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｃ', 'Ｃ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｄ', 'Ｄ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｅ', 'Ｅ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｆ', 'Ｆ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｇ', 'Ｇ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｈ', 'Ｈ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｉ', 'Ｉ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｊ', 'Ｊ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｋ', 'Ｋ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｌ', 'Ｌ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｍ', 'Ｍ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｎ', 'Ｎ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｏ', 'Ｏ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｐ', 'Ｐ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｑ', 'Ｑ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｒ', 'Ｒ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｅ', 'Ｅ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｓ', 'Ｓ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｔ', 'Ｔ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｕ', 'Ｕ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｖ', 'Ｖ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｗ', 'Ｗ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｘ', 'Ｘ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｙ', 'Ｙ' );
SET V_RESULT = REPLACE( V_RESULT, 'ｚ', 'Ｚ' );

SET V_RESULT = REPLACE( V_RESULT, '0', '０' );
SET V_RESULT = REPLACE( V_RESULT, '1', '１' );
SET V_RESULT = REPLACE( V_RESULT, '2', '２' );
SET V_RESULT = REPLACE( V_RESULT, '3', '３' );
SET V_RESULT = REPLACE( V_RESULT, '4', '４' );
SET V_RESULT = REPLACE( V_RESULT, '5', '５' );
SET V_RESULT = REPLACE( V_RESULT, '6', '６' );
SET V_RESULT = REPLACE( V_RESULT, '7', '７' );
SET V_RESULT = REPLACE( V_RESULT, '8', '８' );
SET V_RESULT = REPLACE( V_RESULT, '9', '９' );


SET V_RESULT = REPLACE( V_RESULT, '!', '！' );
SET V_RESULT = REPLACE( V_RESULT, '"', '”' );
SET V_RESULT = REPLACE( V_RESULT, '#', '＃' );
SET V_RESULT = REPLACE( V_RESULT, '$', '＄' );
SET V_RESULT = REPLACE( V_RESULT, '%', '％' );
SET V_RESULT = REPLACE( V_RESULT, '&', '＆' );
SET V_RESULT = REPLACE( V_RESULT, '''', '’' );
SET V_RESULT = REPLACE( V_RESULT, '(', '（' );
SET V_RESULT = REPLACE( V_RESULT, ')', '）' );

SET V_RESULT = REPLACE( V_RESULT, '=', '＝' );
SET V_RESULT = REPLACE( V_RESULT, '~', '￣' );
SET V_RESULT = REPLACE( V_RESULT, '|', '｜' );
SET V_RESULT = REPLACE( V_RESULT, '`', '｀' );
SET V_RESULT = REPLACE( V_RESULT, '{', '｛' );
SET V_RESULT = REPLACE( V_RESULT, '+', '＋' );
SET V_RESULT = REPLACE( V_RESULT, '*', '＊' );
SET V_RESULT = REPLACE( V_RESULT, '}', '｝' );
SET V_RESULT = REPLACE( V_RESULT, '<', '＜' );
SET V_RESULT = REPLACE( V_RESULT, '>', '＞' );
SET V_RESULT = REPLACE( V_RESULT, '?', '？' );
SET V_RESULT = REPLACE( V_RESULT, '_', '＿' );

SET V_RESULT = REPLACE( V_RESULT, '-', '－' );
SET V_RESULT = REPLACE( V_RESULT, '^', '＾' );

SET V_RESULT = REPLACE( V_RESULT, '@', '＠' );
SET V_RESULT = REPLACE( V_RESULT, '[', '［' );
SET V_RESULT = REPLACE( V_RESULT, ';', '；' );
SET V_RESULT = REPLACE( V_RESULT, ':', '：' );
SET V_RESULT = REPLACE( V_RESULT, ']', '］' );
SET V_RESULT = REPLACE( V_RESULT, ',', '，' );
SET V_RESULT = REPLACE( V_RESULT, '.', '．' );
SET V_RESULT = REPLACE( V_RESULT, '/', '／' );
SET V_RESULT = REPLACE( V_RESULT, '\', '￥' );

SET V_D_CNT  = POSSTR( V_RESULT, '･' );
IF V_D_CNT > 0 THEN
    SET V_RESULT = REPLACE( V_RESULT, '･', '・' );
END IF;

SET V_RESULT = REPLACE( V_RESULT, '゜', '' );
SET V_RESULT = REPLACE( V_RESULT, '゛', '' );

RETURN V_RESULT;
END
@

Ответы [ 2 ]

0 голосов
/ 24 марта 2020

То, что вы пытаетесь сделать, называется нормализацией Unicode? Если да, то поможет ли это 

CREATE OR REPLACE FUNCTION DB_NORMALIZE_UNICODE_NFKC (S VARCHAR(32000))
RETURNS VARCHAR(32000)
    NO EXTERNAL ACTION
    DETERMINISTIC
RETURN
    XMLCAST(XMLQUERY('fn:normalize-unicode($S, ''NFKC'' )') AS VARCHAR(32000))

https://www.ibm.com/support/knowledgecenter/en/SSEPGG_11.5.0/com.ibm.db2.luw.xml.doc/doc/xqrfnnmu.html

0 голосов
/ 24 марта 2020

Вы можете не использовать составной оператор в своей функции, а просто использовать один оператор. Например, 

CREATE OR REPLACE FUNCTION HALF_WIDTH_TO_FULL_WIDTH(X VARCHAR(5000))
RETURNS VARCHAR(5000)
LANGUAGE SQL CONTAINS SQL DETERMINISTIC NO EXTERNAL ACTION
RETURN
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(REPLACE(
 X
,'　', '' )     
, ' ', '' )      
--
, 'ﾟ', '゜' )    
, 'ﾞ', '゛' )    
--
, 'ｱ', 'ア' )
, 'ｲ', 'イ' )
, 'ｳ', 'ウ' )
, 'ｴ', 'エ' )
, 'ｵ', 'オ' )
, 'ｶ', 'カ' )
, 'ｷ', 'キ' )
, 'ｸ', 'ク' )
, 'ｹ', 'ケ' )
, 'ｺ', 'コ' )
, 'ｻ', 'サ' )
, 'ｼ', 'シ' )
, 'ｽ', 'ス' )
, 'ｾ', 'セ' )
, 'ｿ', 'ソ' )
, 'ﾀ', 'タ' )
, 'ﾁ', 'チ' )
, 'ﾂ', 'ツ' )
, 'ﾃ', 'テ' )
, 'ﾄ', 'ト' )
, 'ﾅ', 'ナ' )
, 'ﾆ', 'ニ' )
, 'ﾇ', 'ヌ' )
, 'ﾈ', 'ネ' )
, 'ﾉ', 'ノ' )
, 'ﾊ', 'ハ' )
, 'ﾋ', 'ヒ' )
, 'ﾌ', 'フ' )
, 'ﾍ', 'ヘ' )
, 'ﾎ', 'ホ' )
, 'ﾏ', 'マ' )
, 'ﾐ', 'ミ' )
, 'ﾑ', 'ム' )
, 'ﾒ', 'メ' )
, 'ﾓ', 'モ' )
, 'ﾔ', 'ヤ' )
, 'ﾕ', 'ユ' )
, 'ﾖ', 'ヨ' )
, 'ﾗ', 'ラ' )
, 'ﾘ', 'リ' )
, 'ﾙ', 'ル' )
, 'ﾚ', 'レ' )
, 'ﾛ', 'ロ' )
, 'ﾜ', 'ワ' )
, 'ｦ', 'ヲ' )
, 'ﾝ', 'ン' )
--
, 'ァ', 'ア' )
, 'ィ', 'イ' )
, 'ゥ', 'ウ' )
, 'ェ', 'エ' )
, 'ォ', 'オ' )
, 'ャ', 'ヤ' )
, 'ュ', 'ユ' )
, 'ョ', 'ヨ' )
, 'ッ', 'ツ' )
, 'ヮ', 'ワ' )
--
, 'ｧ', 'ア' )
, 'ｨ', 'イ' )
, 'ｩ', 'ウ' )
, 'ｪ', 'エ' )
, 'ｫ', 'オ' )
, 'ｬ', 'ヤ' )
, 'ｭ', 'ユ' )
, 'ｮ', 'ヨ' )
, 'ｯ', 'ツ' )
, 'ｰ', 'ー' )
--
, 'ぁ', 'あ' )
, 'ぃ', 'い' )
, 'ぅ', 'う' )
, 'ぇ', 'え' )
, 'ぉ', 'お' )
, 'ゃ', 'や' )
, 'ゅ', 'ゆ' )
, 'ょ', 'よ' )
, 'っ', 'つ' )
, 'ゎ', 'わ' )

Я не включил ваш IF V_D_CNT > 0 OR V_HD_CNT > 0 THEN logi c, но он также может быть включен (через CASE) или с помощью второй функции, которая использует первый

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...