Easy language how to save and read list box items

I wrote an auto-read save list a few days ago, and I just need to change it a little.

Version 2 supports the library iext

Support for library dp1

Assemblies Window Assembly 1

The subroutine Startup Window is created.

Local variables: temporary, textual.

Local variables temporal arrays, textual, ,"0"

Local variables: number of cycles, integer.

Local variables, local counting, integers.

If the file ( exists (fetch the running directory () true) the megalist box 1Delete all ().

Temporary data to text (decrypt data (read into the file (fetch the running directory (mmc", 2)).

Temporary Array Split Text (Temporary Data, Line Breaks, ) Number of Loops Take the number of array members (Temporary Array).

Counting the first of the cycle (take the number of array members (temporary array), local counting) super list box 1Insert table entries (0, temporary array [local counting], counting cycle tail ()

Refresh the display ().

Otherwise. Infobox ("Failed to load preconfigured document!") The documentation will be re-established after the software exits (do not delete it!). ", 64, "Information Tips").

If it ends. The subroutine Startup Window will be destroyed.

Local variables: number of cycles, integer.

The local variable n, of the integer type.

Local variables: temporary, textual.

Local variables: final data, byte set.

Number of loops in the superlist box 1Fetch the number of entries in the table () temporary data

Count the first cycle (number of cycles, n).

Temporary Data Temporary Data Superlist Box 1Take the title (n 1, 0) newline in the Megalist Box 1Take the title (n 1, 1).

Counting cycle tail ().

Final Data Encrypt Data (to Byte Set (Temporal Data), MMC", 2) Write to File (Fetch Run Directory () Final Data) Subroutine Button 1 is clicked.

Local variables Split Text, Textual, ,"0"

Local variables, local counting, integers.

Split Text Split Text (Box 1.)Contents, line breaks, ) counting the first of the cycle (taking the number of array members (split text), local counting times) super list box 1Insert table entries (0, split text [local counting], counting cycle tail ()

The ground floor is too much trouble. Look at me!

Two lines** all done.

The version 2 subroutine startup window is created.

List Box 1The list item Read in file (fetch the running directory) subroutine (Startup Window) will be destroyed.

Write to the file (fetch the running directory () in the list box 1list items).

I wrote an auto-read save list a few days ago, and I just need to change it a little. Version 2

Support for the library iext

Support for library dp1

Assemblies Window Assembly 1

The subroutine Startup Window is created.

Local variables: temporary, textual.

Local variables, temporal arrays, textual, ,0"

Local variables: number of cycles, integer.

Local variables, local counting, integers.

If the file ( exists (fetch the running directory () true) the megalist box 1Delete all ().

Temporary data to text (decrypt data (read into the file (fetch the running directory (mmc", 2)).

Temporary Array Split Text (Temporary Data, Line Breaks, ) Number of Loops Take the number of array members (Temporary Array).

Counting the first of the cycle (take the number of array members (temporary array), local counting) super list box 1Insert table entries (0, temporary array [local counting], .,Counting cycle tail ().

Refresh the display ().

Otherwise, the infobox ("Failed to load preconfigured document!"). The documentation will be re-established after the software exits (do not delete it!). ", 64, "Information Tips").

If it ends. The subroutine Startup Window will be destroyed.

Local variables: number of cycles, integer.

The local variable n, of the integer type.

Local variables: temporary, textual.

Local variables: final data, byte set.

Number of loops in the superlist box 1Fetch the number of entries in the table () temporary data

Count the first cycle (number of cycles, n).

Temporary Data Temporary Data Superlist Box 1Take the title (n 1, 0) newline in the Megalist Box 1Take the title (n 1, 1).

Counting cycle tail ().

Final data: Encrypt the data (to the byte set (temporary data), mmc", 2) write to the file (fetch the running directory (final data).Subroutine button 1 is clicked.

Local variables Split Text, Textual, ,0"

Local variables, local counting, integers.

Split Text Split Text (Box 1.)Contents, line breaks, ) counting the first of the cycle (taking the number of array members (split text), local counting times) super list box 1

Insert table entries (0, split text [local counting], .,Counting cycle tail ().

It's easy. Version 2Subroutines read listbox items. Local variables File number, integer file number Open file ("c: , read in, )

If true (file number ≠ 0).

Determine the beginning of the loop (whether it is at the end of the file (file number, false)) list box 1Join the project (read a line (file number),..)Judge the end of the cycle ().

Close the file (file number).

If it's really over.

Subroutines save the list box item.

Local variable file number, integer.

Local variables: Number of items, integer.

Local variable i, integer file number Open file ("c: , override, )

If true (file number ≠ 0).

Number of items in the list box 1Take the number of items ().

The first count of the cycle (number of items, i).

Write a line of text (file number, list box 1.)Take the project text (i 1)).Counting cycle tail ().

Close the file (file number).

.Version 2

The subroutine Startup Window is created.

List Box 1The list item Read in file (fetch the running directory) subroutine (Startup Window) will be destroyed.

Write to the file (fetch the running directory () in the list box 1list items).

.Version 2

Subroutine button 1 is clicked.

The local variable i, an integer.

Local variable a, textual.

The first of the counting cycle (list box 1.)Take the number of items ()i)a a project name" to the text (i).

List Box 1Take the item text (i 1) item value: "to the text (list box 1.).

Take the item value (i 1)) line break.

Counting cycle tail ().

If true (General Dialog 1.)Open ().

Write to File (Generic Dialog 1.)The filename, to the byte set (a)) infobox ("export successful", 0, if true.

<> Version 2 Support Library Shell

Assemblies Window Assemblies Launches the window.

Assembly variables directory, textual.

The subroutine Startup Window is created.

Table of Contents Take a specific directory (2) musicbox".

Judgment starts (negating (changing the directory (directory))) and creating a directory (directory).

Default. List Box 2List items Read into the file (directory judgment ends.) The subroutine Startup Window will be destroyed.

Judgment Start (Write to File (Directory List Box 1.)List items)) Infobox ("Info saved!") ", 0, , default. Infobox ("Message save failed!") ",0, ,End of judgment. If it still fails, check the user permissions.

.Version 2

Support for the library iext

The local variable i, an integer.

Local variables data, textual.

Count the first round of the cycle (Super List Box 1.)Number of entries in the table ()i) Data Data Superlist Box 1Take the title (i 1, 1) with a line break.

Output debug text (data).

Counting cycle tail ().

Write to file (fetch the running directory() data. txt", to the byte set (data)).

.Version 2

The subroutine Startup Window is created.

List Box 1The list item Read in file (fetch the running directory) subroutine (Startup Window) will be destroyed.

Write to the file (fetch the running directory () in the list box 1list items).

You can read the text in a split text and then write out the file to write out the data you want to save.

Create a database and save them to the corresponding fields in the database, and the reading is similar.

1.Database.

2.Write CI () Read CI ().

3.Write to file() Read into file().

You won't even be able to base the foundation important.