讀取結構化數據時是否有比LOAD/NEXT更細的粒度？

Question

想象一下，我有雷博爾格式的數據的一個長的文件，用萬線，這看起來像

REBOL [] 

[ 
    [employee name: {Tony Romero} salary: $10,203.04] 
    [employee name: {Marcus "Marco" Marcami} salary: default] 
    [employee name: {Serena Derella} salary: ($10,000 + $203.04)] 

...

[employee name: {Stacey Christie} salary: (10% * $102,030.40)] 
] 

如果封閉塊是不存在，我可以使用LOAD/NEXT一次讀取一個員工項目（而不是將整個文件解析爲結構化數據爲LOAD）。如果封閉塊在那裏是，有什麼辦法可以做類似的事嗎？

如果我想回到以前訪問過的項目該怎麼辦？會不會有「結構性尋求」？

有沒有一種可行的數據庫解決方案，可以用於這種對Rebol結構化數據的需求，甚至可以允許隨機訪問插入？

Answer 1

我記得，你是證明了這一點，應該在PARSE中可行嗎？ ;-)

儘管如此，爲了給你一個有用的答案：我爲link text寫的代碼可以完全描述爲解析（本質上）REBOL在需要其他東西時不使用默認的LOAD/NEXT。所以，看看，閱讀文檔，運行測試，寫一些測試，如果你有更多的問題，請問。

Answer 2

如果你很高興地調整你的文件格式一點，所以它與每行一個記錄，無封裝塊也不REBOL頭文件：

employee-name: {Tony Romero} salary: $10203.04 
employee-name: {Marcus "Marco" Marcami} salary: 'default 
employee-name: {Serena Derella} salary: ($10000 + $203.04) 
employee-name: {Stacey Christie} salary: (10% * $102030.40) 

然後....

data: read/lines %data-file.txt 

....讓你卸載串塊

一種方式與他們合作是這樣的：

foreach record data [ 
    record: make object! load/all record 
    probe record 
] 

我不得不調整你的數據格式，也使其容易被REBOL可裝載：

• 員工的名字，而不是員工姓名
• $ 10203.04而不是$ 10'203.04
• 10％ - 僅與REBOL3

工作如果不能調整這樣的數據格式，你總是可以做之前每個字符串一些編輯LOAD/ALL正常化它REBOL。

Answer 3

因爲你可以有多行數據，所以Sunanda的答案並不好！ 您可以使用類似的東西：

 
data: {REBOL [] 

[ 
    [employee name: {Tony Romero} salary: $10'203.04] 
    [employee name: {Marcus "Marco" Marcami} salary: default] 
    [employee name: {Serena Derella} salary: ($10'000 + $203.04)] 
]} 

unless all [ 
    set [value data] load/next data 
    value = 'REBOL 
][ print "Not a REBOL data file!" halt ] 
set [header data] load/next data 
print ["data-file-header:" mold header] 
data: find/tail data #"[" 

attempt [ 
    ;you must use attempt as there will be at least one error at the end of file! 
    ;** Syntax Error: Missing [ at end-of-block 
    indexes: copy [] 
    while [ 
     append indexes data 
     set [loaded-row data] load/next data 
     data 
    ][ 
     probe loaded-row 
    ] 

] 
print "done" 

remove back tail indexes ;removes the last erroneous position 

foreach data-at-pos reverse indexes [ 
    probe first load/next data-at-pos 
] 

所以輸出將是：

 
[employee name: "Tony Romero" salary: $10203.04] 
[employee name: {Marcus "Marco" Marcami} salary: default] 
[employee name: "Serena Derella" salary: ($10000.00 + $203.04)] 
done 
[employee name: "Serena Derella" salary: ($10000.00 + $203.04)] 
[employee name: {Marcus "Marco" Marcami} salary: default] 
[employee name: "Tony Romero" salary: $10203.04]