文本文件中有多少行数据

Question

我是Powerbuilder的新手，在这里我有一些关于如何在文本文件中查找有多少行/行数据的问题。首先，我尝试了FileLength的方法，但无法用我当前的逻辑来计算如何做到这一点。找不到任何关于如何使用它的例子所以在这里我想要一些帮助！

我正在做的是从txt文件生成密码。

注意：gsa_wordlist是一个全局变量。

此外，如果您作为经验丰富的开发人员看到任何常见的陷阱，请告诉我们。

我在Click（）上的代码：

int li_rand
int li_upperboundList
int li_FileNum
string ls_fileurl
string ls_listout
int i
li_upperboundList = Upperbound(gsa_wordlist)
ls_fileurl = 'C:\Users\abg\Documents\wordlist.txt'

IF li_upperboundList < 100 THEN
Beep(1)

li_FileNum = FileOpen(ls_fileurl)
FOR i = 1 TO // TO HOW MANY LINES OF DATA
    FileReadEx(li_FileNum, ls_listout)
    gsa_wordlist[i] = ls_listout
NEXT

li_upperboundList = Upperbound(gsa_wordlist)
li_rand = rand(li_upperboundList)
sle_genpass.Text = string(li_rand)
ELSE
    Beep(2)
    li_rand = rand(li_upperboundList)
    sle_genpass.Text = gsa_wordlist[li_rand]
END IF

Answer 1

您不需要知道有多少行，只需循环直到EOF。

li_FileNum=FileOpen(ls_fileurl,LineMode!,Read!,LockRead!)

i = 1

DO While FileReadEx(li_FileNum,ls_listout) <> -100
   gsa_wordlist[i++] = ls_listout
LOOP
FileClose(li_FileNum)

PS。在循环中为li_upperboundList限制添加一个检查！

Answer 2

你能想到任何不使用数据存储的原因吗？

将单词导入数据存储区很容易，然后您可以立即使用搜索，排序，插入，删除方法。 ImportFile也比ReadFile快得多。

首先，使用名为d_dictionary的外部数据源创建一个数据窗口，该数据窗口可以容纳您的数据。

然后声明全局变量

datastore gds_dictionary

示例代码

long ll_rows
string ls_fileurl = 'C:\Users\abg\Documents\wordlist.txt'

if not isvalid( gds_dictionary ) then
    gds_dictionary = create datastore
    gds_dictionary.dataobject = "d_dictionary"
end if

gds_dictionary.reset( )
ll_rows = gds_dictionary.ImportFile( ls_fileurl )

if ll_rows < 1 then
   //oops! Something bad happened
else
   gds_dictionary.sort( )
end if

Answer 3

从文本文件生成密码是非常糟糕的主意。实际上，您在生成密码时依赖字符，从不从文件中选择完整的单词。当您恢复忘记的密码时，将使用包含许多单词的文件。如果用作密码那么有意义或有意义的词肯定是一个弱密码。

如果您有机会看到某些Web托管服务提供商的控制面板，那么您可能会在那里找到生成的强密码的一个很好的示例（并非所有的Web托管服务提供商都提供此密码）。

但是制作一个完成同样事情的程序非常容易。例如，按照PowerBuilder Script执行操作。

Integer MaxLength = 10, TheNextCode
Integer ASCII_Range[33 TO 125]
String ThePass
DO While  Len(ThePass) < MaxLength
    TheNextCode = Rand(125) 
    IF TheNextCode < 33 THEN Continue
   ThePass += String(Char(TheNextCode))
LOOP
mle.Text += ThePass + "~r~n"