cws | Chinese Word Segmentation | Natural Language Processing library

If you are copying from the table try replacing Range("A1:H169") with a reference to the table's range.

You could attempt to make a HTTP request to the provided request. When the response is valid, you could go through the received html code and check whether a word exists in it.

In the PERFOM UNTIL... loop, you are reading BASEBALL-FILE-OUT, instead of the sorted BASEBALL-FILE-SORTED.

ARE-THERE-MORE-RECORDS = 'NO' is still true from its use in the input procedure. At the beginning of the output procedure, insert MOVE 'YES' TO ARE-THERE-MORE-RECORDS. You also need to replace the READ BASEBALL-FILE-IN with RETURN SORT-FILE, add some fields to SORT-RECORD, and use those fields for the report.

Why do you have BASEBALL-FILE-UNSORTED-IN? It doesn't have any of the fields you need to move to SORT-RECORD.

If you want to use BASEBALL-FILE-UNSORTED-IN, then don't use an input procedure. Instead change the SORT statement from INPUT PROCEDURE 120-SORT-INPUT-PROCEDURE to USING BASEBALL-FILE-UNSORTED-IN. Do not OPEN or CLOSE the file. That will be done by the runtime. Remove the 120- and 130- paragraphs.

Comment everything associated with BASEBALL-FILE-IN, except 01 BASEBALL-RECORD-IN and its data items. That effectively allows the BASEBALL-RECORD-IN data definition to be used as a replacement for SORT-RECORD. That reduces the number of changes that are needed.

SORT is not being used correctly. The report is being printed in 120-SORT-INPUT-PROCEDURE using the fields from BASEBALL-RECORD-IN. It should be printed in 130-SORT-OUTPUT-PROCEDURE using the fields from SORT-RECORD.

Furthermore, no records are sorted because there is no RELEASE statement in the input procedure. To access records after the sort, a RETURN statement is used in the same manner as a READ statement for a sequential file.

The input procedure should be used to move the data from selected records to the sort record, after which the record is released to sort.

The output procedure may then used to produce a report from the sorted data by returning and printing each record until the there are no more sorted records.

Using Redim Preserve in the Loop is very costly and time consuming. There is no reason for it. You already limit the size or the output.

Also your problem is that you assume the array starts at 1 but it starts at 0. Which is why you columns are off.

Create the two arrays the same number of rows as the input and just post where they are full. The counters k and p will track that.

Also Dim i, k, p As Long only declare k as a Long the others are Variant

Not going too far from your original method...

(untested but you should get the general idea)

There may be other problems with your code (wiring up sockets and clients takes a bit of messing about before you get it right) but there are two glaring problems:

You need to await the result of ConnectAsync(...), to stop the code of Start() continuing synchronously without it:

• Not tested.

The Code