Powerbuilder-Удалить последний разделитель

Question

Привет я использую PB 12 и у меня есть проблемы с SaveasFormattedText

несильно работает хорошо, но разделитель символ добавить один символ в конце каждой строки, и мне нужно, чтобы удалить последний разделитель.

Например, saveasformattedtext экспорт данных, как это:

data1;data2;data3;data4; 
data1;data2;data3;data4; 
etc. 

И мне нужно, как это:

data1;data2;data3;data4 
data1;data2;data3;data4 

без ";" в конце.

это мой код:

dw_report.SaveAsFormattedText("d:/RESULTS2.TXT", EncodingUTF8! , "|", "","~r~n",True) 

Пожалуйста, помогите

Answer 1

Попробуйте ниже функции. Возможно, вы захотите добавить некоторую проверку ошибок и больше параметров по мере необходимости. идея состоит в том, чтобы сохранить каждую строку отдельно как строку в файле.

/*function: f_dw_saveasformattedtext(dw_1, ls_filename, ';') 
parameters: adw_dw(datawindow/datastore), as_filename (string), as_separator(string) 
*/ 
long ll_row, ll_rows, ll_colcount, ll_colindex 
string ls_colname, ls_coltype, ls_value, ls_lineval 
int li_filenum 
any la_anyval 

ll_rows = adw_dw.rowcount() 
ll_colcount = long(adw_dw.Describe("DataWindow.Column.Count")) 
li_filenum = FileOpen(as_filename, LineMode!, Write!, LockWrite!, Append!) 
if li_filenum = -1 or isnull(li_filenum) = true then 
    return -1 
end if 
for ll_row = 1 to ll_rows 
    ls_lineval = '' 
    for ll_colindex = 1 to ll_colcount 
     ls_colname = adw_dw.describe("#" + string(ll_colindex) + ".Name") 
     ls_coltype = adw_dw.Describe (ls_colname + ".ColType") 
     CHOOSE CASE Lower (Left (ls_coltype , 5)) 
       CASE "char(", "char","strin"  // CHARACTER DATATYPE 
        la_anyval = adw_dw.GetItemString (ll_row, ls_colname) 
       CASE "date"     // DATE DATATYPE 
        la_anyval = adw_dw.GetItemDate (ll_row, ls_colname) 
       CASE "datet"    // DATETIME DATATYPE 
        la_anyval = adw_dw.GetItemDateTime (ll_row, ls_colname) 
       CASE "decim"    // DECIMAL DATATYPE 
        la_anyval = adw_dw.GetItemDecimal (ll_row, ls_colname) 
       CASE "numbe", "long", "ulong", "real", "int"    // NUMBER DATATYPE 
        la_anyval = adw_dw.GetItemNumber (ll_row, ls_colname) 
       CASE "time", "times"  // TIME DATATYPE 
        la_anyval = adw_dw.GetItemTime (ll_row, ls_colname) 
       CASE ELSE     
        SetNull (la_anyval) 
     END CHOOSE 
     ls_value = string(la_anyval) 
     if trim(ls_lineval) = '' then 
      ls_lineval = ls_value 
     else 
      ls_lineval += as_separator + ls_value 
     end if 
    next //columns 
    FileWrite(li_filenum, ls_lineval) 
next //rows 

return 1 

Answer 2

Вы можете написать функцию, чтобы заменить сочетание «что объединяется с гольца (10) символ (13)», чтобы быть только символ (10) символ (13). (Возможно, здесь менялись коды ascii CR/LF).

Here is this answer

Here is a possible solution: