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

Привет, я использую 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)

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


powerbuilder save-as delimited datawindow
person Maria Zega    schedule 04.11.2016    source источник

Ответы (2)


arrow_upward
1
arrow_downward

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

/*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
person Arfath    schedule 07.11.2016

arrow_upward
0
arrow_downward

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

Вот этот ответ

Вот возможное решение:

person Eduardo G.    schedule 04.11.2016