帮忙解释PB代码意思 从一个文件读取文件然后解析成多个文件并导入

setpointer(hourglass!)//鼠标置沙漏等待状态

lzw15("e",ls_tempd + ls_filename,ls_tempd + left(ls_filename,len(ls_filename) - 1) + "t")//执行一个函数lzw15括号后面是具体参数

ls_des = ls_tempd + left(ls_filename,len(ls_filename) - 1) + "t"//拼凑字符串,对变量ls_filename进行取左 *** 作

filedelete(ls_tempd + ls_filename)//执行文件删除

li_filenum_o = fileopen(ls_des,linemode!,read!,shared!,append!)//打开文件

ll_ret = 0//以下是具体赋值 *** 作

ll_file = 1

is_filename_des[1] = ls_tempd + "pubtxt"

is_filename_des[2] = ls_tempd + "dtxbxxtxt"

is_filename_des[3] = ls_tempd + "tdkmctxt"

is_filename_des[4] = ls_tempd + "xdwbtxt"

is_filename_des[5] = ls_tempd + "tdb0txt"

is_filename_des[6] = ls_tempd + "xtwbecstxt"

is_filename_des[7] = ls_tempd + "xtb_dsmxtxt"

is_filename_des[8] = ls_tempd + "xtmjztxt"

ll_filenum_des[1] = fileopen(is_filename_des[1],linemode!,write!,shared!,replace!)

ll_filenum_des[2] = fileopen(is_filename_des[2],linemode!,write!,shared!,replace!)

ll_filenum_des[3] = fileopen(is_filename_des[3],linemode!,write!,shared!,replace!)

ll_filenum_des[4] = fileopen(is_filename_des[4],linemode!,write!,shared!,replace!)

ll_filenum_des[5] = fileopen(is_filename_des[5],linemode!,write!,shared!,replace!)

ll_filenum_des[6] = fileopen(is_filename_des[6],linemode!,write!,shared!,replace!)

ll_filenum_des[7] = fileopen(is_filename_des[7],linemode!,write!,shared!,replace!)

if ib_xmmjcf then

ll_filenum_des[8] = fileopen(is_filename_des[8],linemode!,write!,shared!,replace!)

end if

do while ll_ret <> -100//执行循环体

ll_ret = fileread(li_filenum_o,ls_txt)

if ll_ret <> -100 then

if ls_txt = fill("=",len(ls_txt)) then//用＝填充

fileclose(ll_filenum_des[ll_file])//关闭文件

ll_file ++

else

if len(ls_txt) = 1 and asc(ls_txt) = 26 then

else

filewrite(ll_filenum_des[ll_file],ls_txt)//文件写入

end if

end if

end if

loop

fileclose(ll_filenum_des[ll_file])

fileclose(li_filenum_o)

filedelete(ls_des)

if ib_xmmjcf then

fileclose(ll_filenum_des[6])

end if

li_filenum_o = fileopen(is_filename_des[1],linemode!,read!,shared!,append!)

fileread(li_filenum_o,ls_txt)

ls_txt = ls_txt + "~tdefault~t"

数据窗口是可见的DataWindow对象是不可见的，在数据窗口对象PB开发的程序面板好抽象的设计（也可以动态生成），势必检索数据窗口，也可以在程序中动态改变运行过程中，如后顺利dw_1dataobject ='D_1“，在第一个交易应该添加可变数据窗口的window对象D_1所以D_1数据窗口对象检索与数据窗口是dw_1相关的数据，可以检索，例如：dw_1settransobject（ SQLCA）dw_1retrieve（），所以你D_1在数据窗口对象的数据被检索到数据窗口中显示是dw_1出来，希望能帮助到你

模块1：

Private Declare Function GetPrivateProfileString Lib "kernel32" _

Alias "GetPrivateProfileStringA" (ByVal lpApplicationName _

As String, ByVal lpKeyName As Any, ByVal lpDefault As String, _

ByVal lpReturnedString As String, ByVal nSize As Long, _

ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" _

Alias "WritePrivateProfileStringA" (ByVal lpApplicationName _

As String, ByVal lpKeyName As Any, ByVal lpString As Any, _

ByVal lpFileName As String) As Long

Public Funtion GetINIValue(sFile As string,sRoot As string,sKey As String) As String

Dim s As String 256

GetPrivateProfileString sRoot, _

SKey, "", s, 256, sFile

GetINIValue = s

End Function

窗体：

Label1BackColor = CLng(GetINIValue("主键","项目","文件路径"))

INI:

[主键]

项目=255

可以

反编译后， 需要修改最后一行。

PB反编译器是一个应用程序，该应用程序可以帮助您反编译PowerBuilder PBD文件。它可以对这些文件执行反向工程 *** 作，试图重建原始源代码，这使得人类可读的。简单的界面和两种工作模式。尽管其先进的功能，它功能简单接口组成一套简约的选项。反编译器可以处理文件创建不同版本的PowerBuilder。对于处理经验和初学者程序员，它具有两种不同的运作模式，即“简单”和“专业”。

首先你需要建立一个ddlb控件，这个空间里面写：insert，update，delete

之后，你再建立一个ddlb控件，在FORM界面的open事件里面填写以下代码

string c1,i_temp

DECLARE c1 cursor FOR SELECT name FROM sysindexes where name like 'PK_%' and rows <> 0;

open c1;

do while sqlcasqlcode = 0

fetch c1 into :i_temp;

ddlb_1insertitem( mid(i_temp,4,len(i_temp)-3),0)

loop

close c1;

这个程序是将你连接的数据库中的所有有数据的表的名字取出来后，添加在ddlb控件的下拉菜单中。

做完后，再在FORM上添加一个ddlb的控件，在之前弄表名的ddlb控件的itemchanged的事件中添加如下代码

string c1,i_temp,ls_sql

long i_id

ls_sql = 'PK_' + ddlb_1text

DECLARE c1 cursor FOR SELECT Name FROM SysColumns WHERE id in

(SELECT id

FROM sysindexes where name = :ls_sql);

open c1;

do while sqlcasqlcode = 0

fetch c1 into :i_temp;

ddlb_2insertitem( i_temp,0)

loop

close c1;

OK，这样你就已经取到了组成语句的几个关键部位，之后的代码怎么写，你就自己完成吧，我写的累死了，就不累述了。

2~~~~~~~~~~~~~~~~~~~~~~~

这个问题很简单，你写成ddlb_1selectitem(0)就行了。 怕你看不懂，稍微解释下这个东西，ddlb控件应该是可以改TEXT属性的，但是你可能没有勾上allow edit的属性，所以在修改的时候报错。当然，这样的情况不是说不能修改，selectitem（0）是指选择ddlb中的空选项，当把0变成1的时候就是选择ddlb中的第一个下拉选项，PB中的F1帮助里面有详细解释，其他的么，应该都会了把。

以上就是关于帮忙解释PB代码意思 从一个文件读取文件然后解析成多个文件并导入全部的内容，包括:帮忙解释PB代码意思 从一个文件读取文件然后解析成多个文件并导入、pb6.5怎么配置文件让他自动与获取数据、pb读文件问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！