關(guān)于郵編號(hào)碼和電話號(hào)碼等格式的轉(zhuǎn)變！

cyberspace4601

A數(shù)據(jù)庫(kù)里，郵編和電話定義成15A的，顯示格式為0411-XXXXXX。
B數(shù)據(jù)庫(kù)里，郵編和電話我想顯示成沒(méi)有中間橫線的。
從A數(shù)據(jù)庫(kù)讀數(shù)據(jù)，寫(xiě)到B數(shù)據(jù)庫(kù)中，
用rpgle來(lái)編寫(xiě)，有什么關(guān)鍵字可以直接實(shí)現(xiàn)嗎？？

cyberspace4601

原帖由 mario663 于 2008-4-24 11:34 發(fā)表
%scan'-' ,A = s
%substr(A,1,s-1)+%substr(A,s+1,XX)

謝謝，可是如果我這里面有多個(gè)橫線呢？？
比如，0411-xxxx-xxxx-xxxx

roden

原帖由 mario663 于 2008-4-24 16:13 發(fā)表
D   AA       DS
D    AA1        1
D    AA2        1
....
D    AA15      1

MOVE   A to AA
把沒(méi)有不是'-'加起來(lái)就好了!

不錯(cuò),用數(shù)組也可以,可以做個(gè)循環(huán)

jianzk

可以參考ILE PRG Reference中%check的例子。


*..1....+....2....+....3....+....4....+....5....+....6....+....7...+....
*--------------------------------------------------
* A string contains a series of numbers separated
* by blanks and/or commas.
* Use %CHECK to extract the numbers
*--------------------------------------------------
D string s 50a varying
D inz('12,233 17,1,234')
D delimiters C ' ,'
D digits C '0123456789'
D num S 50a varying
D pos S 10i 0
D len S 10i 0
D token s 50a varying
/free
// make sure the string ends with a delimiter
string = string + delimiters;
dou string = '';
// Find the beginning of the group of digits
pos = %check (delimiters : string);
if (pos = 0);
leave;
endif;
// skip past the delimiters
string = %subst(string : pos);
// Find the length of the group of digits
len = %check (digits : string) - 1;
// Extract the group of digits
token = %subst(string : 1 : len);
dsply ' ' ' ' token;
// Skip past the digits
if (len < %len(string));
string = %subst (string : len + 1);
endif;
enddo;
/end-free

caomangyu

用 %XLATE（） 將‘—‘ 替換成 ' ' 然后%trim
試下