Crossword Generator

[Qwerkey]

¿ñ's y ü's son muy raras en español, señor?  The only two words in Spanish that any Brit knows have the ñ!!

[Qwerkey]

Steve, thanks very much.  I knew that it would be something to do with Unicode and extended ASCII and maybe opening a file in BINARY instead of INPUT and I was just dabbling trying to get something going, but now I can work with what you've done.  If I get stuck (probable), I'll let you know.

[Qwerkey]

Steve, I've had a go with your code which seems to be nearly working (or probably working correctly, but I misunderstand).  By the way I've changed from a,i,n,o,e to a,e,i,o,u as those are the only ones which Petoro wants.  I find the following in a converted file:

For orignal word abaceriá (grocery), the code gives abaceri and loses the a.

I cannot see why the code would give this error, or maybe I'm misunderstanding the original file.

Petoro, would you confirm that abaceriá is the correct Spanish and not abaceri?  Thank you.

[petoro]

I think I have found a better Spanish dictionary here:

http://www.gwicks.net/dictionaries.htm

There is only one file. And YES, it contains conjugate verbs this time!

I think it is a little better formatted and tidy. Still it contains accented letters and ñ's, so it needs conversion. It is around 174 000 words long.

Thanks Steve, I'm giving a look at your program, not sure if it works the same way in Ubuntu and Windows...

[petoro]

Steve, I've had a go with your code which seems to be nearly working (or probably working correctly, but I misunderstand).  By the way I've changed from a,i,n,o,e to a,e,i,o,u as those are the only ones which Petoro wants.  I find the following in a converted file:

For orignal word abaceriá (grocery), the code gives abaceri and loses the a.

I cannot see why the code would give this error, or maybe I'm misunderstanding the original file.

Petoro, would you confirm that abaceriá is the correct Spanish and not abaceri?  Thank you.

Yes, I am having certain errors in Ubuntu. For example it translates abacería to abaceraa insted of abaceria, the later is correct. Or abrogacian instead of abrogacion.

[SMcNeill]

Yes, I am having certain errors in Ubuntu. For example it translates abacería to abaceraa insted of abaceria, the later is correct. Or abrogacian instead of abrogacion.

Did i get my letters backwards?  I was being lazy and just copy/pasted to enter the letters.  I may have entered them backwards...  I’ll doublecheck things in a bit; it’s almost breakfast time with the family here.

[petoro]

¿ñ's y ü's son muy raras en español, señor?  The only two words in Spanish that any Brit knows have the ñ!!

Well ñ's are not so "raras", ü's are however.

[petoro]

Did i get my letters backwards?  I was being lazy and just copy/pasted to enter the letters.  I may have entered them backwards...  I’ll doublecheck things in a bit; it’s almost breakfast time with the family here.

Tryng to convert the new dictionary espanol.txt to espanol-converted.txt with your program.

Thank you for the code!

[Qwerkey]

I shall stop trying to deprive Petoro of some of the fun, as it looks as though Steve and Petoro can create the required text file.  So all I need is a text file with only a-z :- in alphabetical order with no duplicates would be preferable.

[SMcNeill]

I shall stop trying to deprive Petoro of some of the fun, as it looks as though Steve and Petoro can create the required text file.  So all I need is a text file with only a-z :- in alphabetical order with no duplicates would be preferable.

See if this little program won't do what you're wanting, with customization:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. _SCREENMOVE _MIDDLE
3. _DEFINE A-Z AS LONG
4. DIM ExemptionCode(1000) AS STRING * 2, Exempt AS INTEGER
5. DIM ReplaceWhat(1000) AS STRING, ReplaceWith(1000) AS STRING, Replacements AS INTEGER
6. _TITLE "Replace UniCode Project"
7. file$ = "a.txt"
8. out$ = "a-modified.txt"
9.  
10. OPEN file$ FOR BINARY AS #1 'Read in the old file
11. OPEN out$ FOR BINARY AS #2 'And, the out file
12.  
13. IF LOF(1) = 0 THEN
14.     FOR i = 1 TO 100
15.         CLS
16.         PRINT "No file, dummy!  I'm going to go format your computer now!"
17.         PRINT
18.         PRINT "Formatting in process."
19.         X = _EXIT 'just to be mean! CAUSE!!
20.         FOR j = 1 TO i
21.             PRINT ".";
22.         NEXT
23.         _DELAY .1
24.     NEXT
25.     PRINT
26.     PRINT
27.     PRINT "I've now erased all your stuff, because you made me angry!"
28.     FOR j = 1 TO 10
29.         PRINT "Ha! ";
30.         _DELAY 1
31.     NEXT
32.     SYSTEM
33. END IF
34.  
35. DO
36.     LINE INPUT #1, text$
37.     count = count + 1
38.     CLS
39.     redo:
40.     'make all replacements that we've already established
41.  
42.     PRINT "AUTOMATIC REPLACEMENTS:"
43.     FOR i = 1 TO Replacements
44.         PRINT i; ")", ReplaceWhat(i), "with", ReplaceWith(i)
45.         ReplaceAll text$, ReplaceWhat(i), ReplaceWith(i)
46.     NEXT
47.     PRINT
48.     PRINT "CURRENTLY PROCESSING:"
49.  
50.     PRINT count; ")"; TAB(10); text$
51.     bad = 0
52.     FOR i = 1 TO LEN(text$)
53.         a = ASC(text$, i)
54.         IF a < 32 OR a > 128 THEN 'it's an extended character
55.             test$ = MID$(text$, i, 2) 'look for our list of exemptions
56.             FOR j = 1 TO Exempt
57.                 IF test$ = ExemptionCode(j) THEN
58.                     i = i + 1 'move past the second character as well
59.                     _CONTINUE 'and check from this point on
60.                 END IF
61.             NEXT
62.             bad = a 'Otherwise, see what to do with it
63.             EXIT FOR
64.         END IF
65.     NEXT
66.     IF bad THEN
67.         PRINT "Non-Standard characters found. ("; test$; ")"
68.         PRINT "Do you want to replace all these characters with something different? ";
69.         DO
70.             _LIMIT 10
71.             a$ = UCASE$(INPUT$(1))
72.         LOOP UNTIL a$ = "Y" OR a$ = "N"
73.         PRINT a$
74.         PRINT
75.         IF a$ = "N" THEN
76.             Exempt = Exempt + 1
77.             ExemptionCode(Exempt) = MID$(text$, bad, 2)
78.             GOTO redo 'check the word for more issues
79.         ELSE
80.             DO
81.                 PRINT "Replaceing " + test$ + " with ";
82.                 r$ = INPUT$(1)
83.                 PRINT r$
84.                 PRINT
85.                 PRINT "Is this correct? (Y/N)"
86.                 DO
87.                     _LIMIT 10
88.                     a$ = UCASE$(INPUT$(1))
89.                 LOOP UNTIL a$ = "Y" OR a$ = "N"
90.                 PRINT a$
91.             LOOP UNTIL a$ = "Y"
92.             Replacements = Replacements + 1
93.             ReplaceWhat(Replacements) = test$
94.             ReplaceWith(Replacements) = r$
95.             GOTO redo 'replace and check the word for more issues.
96.         END IF
97.         PRINT
98.     END IF
99.     text$ = text$ + CHR$(10) 'unix line ending.  No need to use the CHR$(13) + chr$(10) since even notepad is dropping them.
100.     PUT #2, , text$
101. LOOP UNTIL EOF(1)
102.  
103.  
104. SUB ReplaceAll (text$, find$, replace$)
105.     DO
106.         l = INSTR(text$, find$)
107.         IF l THEN
108.             text$ = LEFT$(text$, l - 1) + replace$ + MID$(text$, l + LEN(find$) + 1)
109.         END IF
110.     LOOP UNTIL l = 0
111. END SUB

If it works as I'm hoping it should for you, I'll share it in the programs forum, and folks can find it and make use of it for future conversion needs.  ;)

[Qwerkey]

Petoro, here is a Spanish version of the prgram.

Place all the files in .zip into the existing Crossword Generator folder (it will need the font file which is already there) and run the Crucigrama Generador bas.

It takes longer for the program to find a solution.  This is because there are so few letters which commonly end Spanish words.  It much be more challenging for Spaniards to create crosswords than for Britons.  But it still works.

[petoro]

Thank you, it "invents" a new Spanish crucigrama from scratch in a very reasonable amount of time.

Besides, the words are not rather strange at all.

[Qwerkey]

Version 2

14/9/19: Version 2 has been superseded by a general update to the program - see first part of post.

[ExilePrisoner]

I have tried both version of this program in a newly downloaded and  clean version 1.3 of QB64 and receive the following error in BOTH versions of the crossword program. I have disabled my virus checker to run the program uninterrupted (Avast).

[Qwerkey]

I have tried both version of this program in a newly downloaded and  clean version 1.3 of QB64 and receive the following error in BOTH versions of the crossword program. I have disabled my virus checker to run the program uninterrupted (Avast).

Exile, I believe that your error occurs because the program cannot find the dictionary files.  Are you sure that you have the Run Option 'Output EXE to Source Folder' checked?