QB64.org Forum

Active Forums => Programs => Topic started by: SpriggsySpriggs on July 20, 2020, 06:19:57 pm

Title: Check and filter profanity in a string with online API!
Post by: SpriggsySpriggs on July 20, 2020, 06:19:57 pm

Here is some code I wrote up to use the Purgo Malum API to check for profanity and filter it out. You pass it a string with profanity (I've elected to not write it here in the source, so substitute with whatever stronger language you wish). Attached is a screenshot of the output:
 

Code: QB64: [Select]

1. $CONSOLE:ONLY
2. _DEST _CONSOLE
3.  
4. PRINT CheckProfanity("This is bullcrap, you know", "*")
5. SLEEP
6.  
7. FUNCTION CheckProfanity$ (text AS STRING, fillchar AS STRING)
8.     DIM URL AS STRING
9.     DIM URLFile AS STRING
10.     DIM a%
11.     DIM Request AS STRING
12.     URLFile = "profanitycheck"
13.     URL = "https://www.purgomalum.com/service/plain?text=" + FormatAsHTTP(text) + "&add=input&fill_char=" + fillchar
14.     a% = API_Request(URL, URLFile)
15.     DIM U AS INTEGER
16.     U = FREEFILE
17.     OPEN URLFile FOR BINARY AS #U
18.     IF LOF(U) <> 0 THEN
19.         LINE INPUT #U, Request
20.     ELSE
21.         CLOSE #U
22.         KILL URLFile
23.         CheckProfanity = ""
24.         EXIT FUNCTION
25.     END IF
26.     CLOSE #U
27.     KILL URLFile
28.     CheckProfanity = Request
29. END FUNCTION
30.  
31. FUNCTION FormatAsHTTP$ (Request AS STRING)
32.     start% = 1
33.     DO
34.         position% = INSTR(start%, Request, " ")
35.         IF position% THEN
36.             MID$(Request, position%, 1) = "+"
37.             start% = position% + 1
38.         END IF
39.     LOOP UNTIL position% = 0
40.     FormatAsHTTP = Request
41. END FUNCTION
42.  
43. DECLARE DYNAMIC LIBRARY "urlmon"
44.     FUNCTION URLDownloadToFileA (BYVAL pCaller AS LONG, szURL AS STRING, szFileName AS STRING, BYVAL dwReserved AS LONG, BYVAL lpfnCB AS LONG)
45. END DECLARE
46.  
47. FUNCTION API_Request (URL AS STRING, File AS STRING)
48.     API_Request = URLDownloadToFileA(0, URL + CHR$(0), File + CHR$(0), 0, 0)
49. END FUNCTION

Title: Re: Check and filter profanity in a string with online API!
Post by: bplus on July 20, 2020, 06:46:05 pm

EDIT: originally I had a comment about the incongruity between Spriggsy's code and code output snapshot. The output did not come from the code as shown. I had assumed it was and made comment about that, then I saw what he was doing and said "never mind" because I picked up what he was trying not to print. Then he explained that and now we pickup from there....


A+ for that!

All these API's you are posting, did you pick those up from your job?

Those seem like handy things for business.

Title: Re: Check and filter profanity in a string with online API!
Post by: SpriggsySpriggs on July 20, 2020, 07:01:48 pm

Quote from: bplus on July 20, 2020, 06:46:05 pm

A+ for that!

All these API's you are posting, did you pick those up from your job?

Those seem like handy things for business.

@bplus Actually, no. I just happened to discover that API strings work well in QB64 and started searching the internet for random APIs that I could use.

Text Only | Text with Attachments