pdm 字段大小寫轉換

2021-10-06 20:22:39 字數 2631 閱讀 6842

本來設計的表字段是大寫,後來要求用小寫,記錄下;

執行如下指令碼即可,快捷鍵是ctrl+shift+x

大寫轉小寫:

option explicit  

validationmode = true  

interactivemode = im_batch  

dim mdl ' 當前模型  

' 獲取當前模型  

set mdl = activemodel  

if (mdl is nothing) then  

msgbox "沒有開啟乙個模型" 

elseif not mdl.iskindof(pdpdm.cls_model) then  

msgbox "當前模型不是乙個pdm" 

else  

'呼叫處理程式  

processfolder mdl  

end if    

'呼叫的處理程式  

private sub processfolder(folder)  

dim tab '要處理的表  

for each tab in folder.tables  

' if not tab.isshortcut then  

' tab.code = tab.name  

'表名處理,前邊新增字首,字母小寫  

tab.name=  lcase(tab.name)  

tab.code= lcase(tab.code)  

dim col ' 要處理的列  

for each col in tab.columns  

'列名稱和code全部小寫,大寫詩ucase  

col.code= lcase(col.code)  

col.name= lcase(col.name)  

next  

'end if 

next    

' 處理檢視  

'  dim view 'running view  

'   for each view in folder.views  

'   if not view.isshortcut then  

'  view.code = view.name  

'  end if 

' next     

' 遞迴進入 sub-packages  

dim f ' sub  folder  

for each f in folder.packages  

if not f.isshortcut then  

processfolder f  

end if 

next  

end sub 

小寫轉大寫

option explicit 

validationmode = true 

interactivemode = im_batch 

dim mdl ' 當前模型 

' 獲取當前模型 

set mdl = activemodel 

if (mdl is nothing) then 

msgbox "沒有開啟乙個模型"

elseif not mdl.iskindof(pdpdm.cls_model) then 

msgbox "當前模型不是乙個pdm"

else 

'呼叫處理程式 

processfolder mdl 

end if   

'呼叫的處理程式 

private sub processfolder(folder) 

dim tab '要處理的表 

for each tab in folder.tables 

' if not tab.isshortcut then 

' tab.code = tab.name 

'表名處理,前邊新增字首,字母小寫 

tab.name=  ucase(tab.name) 

tab.code= ucase(tab.code) 

dim col ' 要處理的列 

for each col in tab.columns 

'列名稱和code全部小寫,大寫詩ucase 

col.code= ucase(col.code) 

col.name= ucase(col.name) 

next 

'end if

next   

' 處理檢視 

'  dim view 'running view 

'   for each view in folder.views 

'   if not view.isshortcut then 

'  view.code = view.name 

'  end if

' next    

' 遞迴進入 sub-packages 

dim f ' sub  folder 

for each f in folder.packages 

if not f.isshortcut then 

processfolder f 

end if

next 

end sub

大小寫轉換

小寫數值轉大寫 xieshuxu 傳入轉換字串 傳入整數單位 如 元 傳入小數點後一位單位 如 角 傳入小數點後兩位單位 如 分 public string xiaotoda string xiao,string one,string two,string tree if xiao.indexof ...

大小寫轉換

problem description x現在要學習英文以及各種稀奇古怪的字元的了。現在他想把一串字元中的小寫字母變成大寫字元,大寫字母變成小寫字母,其他的保持不變。input 輸入有多組。每組輸入乙個字串,長度不大於80,不包含空格。output 輸出轉換後的字串 sample input a b...

大小寫轉換

a b c d這樣的52個字母 包括大寫 在計算機中儲存時也要使用二進位制數來表示。標準ascii碼使用7位二進位制數 剩下的1位二進位制為0 來表示所有的大寫和小寫字母,如下圖所示,可以看出字母對應大小寫的差值為32。來進行大小寫轉換吧。請用程式實現 輸入乙個英文本母char,判斷它是 大寫字母 ...