Easy Language reads folder files into the Megalist box

Version 2 supports library shells

Support for the library iext

Assemblies Window Assembly 1

Subroutine button 1 is clicked.

Local variables: bureau text, textual.

Local variables of the bureau type, textual.

Local variables bureau array, textual, ,"0"

Local variables, bureau indexes, integers.

Box 1Contents Browse for folders ("Select File Directory" if true (Box 1.)Contents

Return () if it's really over.

If true (take the text to the right (Box 1.)Contents, 1) ≠Box 1Contents Box 1Contents

If it's really over.

Bureau Type Box 1Content txt".

Bureau text to find the document (bureau type, )

Superlist Box 1Delete all ().

Judgment Loop Beginning (Bureau Text≠

Bureau Type Box 1Content Bureau text.

Bureau text takes the left side of the text (bureau text, and finds the text backwards (bureau text, "false) 1).

Bureau Array Split Text (Bureau Text, ").

If true (take the number of array members (bureau array) 3) bureau index superlist box 1Insert table entries (to text (bureau index 1), superlist box 1Set the title (bureau index, 1, bureau array [1]) in the superlist box 1Set the title (bureau index, 2, bureau array [2]) superlist box 1

Set the title (bureau index, 3, bureau array [3]) superlist box 1Set the title (Bureau Index, 4, Bureau Type) if it really ends.

Bureau text to find the file (, judgment loop tail ().

Version 2 supports library shells

Subroutine button 1 is clicked.

Browse folders ("Selecting Trust Directory," Assemblies Window Assembly 1

Subroutine button 1 is clicked.

Local variables: bureau text, textual.

Local variables of the bureau type, textual.

Local variables bureau array, textual, ,"0"

Local variables, bureau indexes, integers.

Box 1Contents Browse for folders ("Select File Directory" if true (Box 1.)Contents

Return () if it's really over.

If true (take the text to the right (Box 1.)Contents, 1) ≠Box 1Contents Box 1Contents

If it's really over.

Bureau Type Box 1Content txt".

Bureau text to find the document (bureau type, )

Superlist Box 1Delete all ().

Judgment Loop Beginning (Bureau Text≠

Bureau Type Box 1Content Bureau text.

Bureau text takes the left side of the text (bureau text, and finds the text backwards (bureau text, "false) 1).

Bureau Array Split Text (Bureau Text, ").

If true (take the number of array members (bureau array) 3) bureau index superlist box 1Insert table entries (to text (bureau index 1), superlist box 1Set the title (bureau index, 1, bureau array [1]) in the superlist box 1Set the title (bureau index, 2, bureau array [2]) superlist box 1

Set the title (bureau index, 3, bureau array [3]) superlist box 1Set the title (Bureau Index, 4, Bureau Type) if it really ends.

Bureau text to find the file (, judgment loop tail ().

This involves how the list box text is saved.

1. Combine all the list box text together and save it.

2, write it one by one, this is a little simpler, I'll start with thisList Box 1Take the number of items ().

List Box 1Take the project text ().Here you use list box 1, you yourself is a list box a few remember to modify itRead the CI (,.)Write CI items (,Counting cyclesThese 5 commands are mainly used.

Written commandsx ＝ 0

The first of the counting cycle (list box 1.)Take the number of items () x x 1

Write the CI item ("path", listbox data", to text (x), listbox1Take the project text (x)).

Counting cycle tail ().

Commands to read.The first of the counting cycle (list box 1.)Take the number of items () x x 1

List Box 1Set the item text (x 1, read the CI item ("path", list box data), and turn it to text (x).

Counting cycle tail ().

List Box 1Set the item text (x 1

The reason why -1 is because it starts at 0.