Audio (343) Datatype (51) Demo (203) Development (602) Document (24) Driver (97) Emulation (149) Game (1011) Graphics (500) Library (118) Network (234) Office (66) Utility (932) Video (69)
Total files: 4399
Full index file Recent index file
Amigans.net OpenAmiga Aminet IntuitionBase
|
[Back to readme page] [Add Comment] [Refresh page]
Comment by: Achim Kern (79.222.62.198) | At: 15 Dec 2012, 14:14 | File version: 1.3 | Hello very good work - i will check in the my holidays if can use some functions on the PC Version - first check seems that there are many only useable for the AmigaOS4 System. It would be great if you can continue your work and provide more functions useable on every system. Also a good documentation would be perfect. I put a small function from my development bib in this comment. /**************************************************************** ** ** ** Name: KeHo Software Function Bibliothek ** ** Author: Achim Kern ** ** Version: 1.0 ** ** Date: 14.12.2012 ** ** Interpreter: Hollywood ** ** Licence: Freeware ** ** Function: provide functions for software projects ** ** ** ** History: ** ** ** ** 1.0: (14.12.2012) ** ** ** ** - initial release ** ** ** ****************************************************************/ /* Hollywood Version required */ @VERSION 5,2 /* the KeHo Software bibliothek provides actual the following functions Function p_GetPrivateProfilString(Group$,SearchString$,Default$,FileName$) TASK read data strings out of a ini-file example test$=p_GetPrivateProfilString("[REGISTRIERUNG]","USERSTREET","Rue Noir 12","usa.ini") -Group$ name of the group in your ini-file - always in brackets -SearchString$ data entry name -Default$ if nothing is declared in your ini-file we take this string -FileName$ the filename of your ini-file */ /*-------------------------------------------------------------------------------*/ /* FUNCTION p_GetPrivateProfilString(Group$,SearchString$,Default$,FileName$) */ /* */ /* TASK : read data strings in an ini-file */ /* UPDATE : 04.04.2011 */ /*-------------------------------------------------------------------------------*/ Function p_GetPrivateProfilString(Group$,SearchString$,Default$,FileName$) ;test$=p_GetPrivateProfilString("[REGISTRIERUNG]","USERSTREET","Rue Noir 12","usa.ini") Local FOUND=False Local len0=StrLen(Group$) Local len1=StrLen(SearchString$) OpenFile(1,FileName$) While Not Eof(1) Local string$=ReadLine(1) Local test$=LeftStr(string$,len0) If test$=Group$ While Not Eof(1) string$=ReadLine(1) test$=LeftStr(string$,len1) If (test$=SearchString$) And (FOUND=False) string$=UnrightStr(string$,len1+1) FoundString$=string$ FOUND=True EndIf Wend EndIf Wend CloseFile(1) If FOUND=True Then PrivateProfilString$=FoundString$ Else PrivateProfilString$=Default$ Return(PrivateProfilString$) EndFunction
| | | Comment by: Achim Kern (79.222.62.198) | At: 15 Dec 2012, 14:13 | File version: 1.3 | Hello very good work - i will check in the my holidays if can use some functions on the PC Version - first check seems that there are many only useable for the AmigaOS4 System. It would be great if you can continue your work and provide more functions useable on every system. Also a good documentation would be perfect. I put a small function from my development bib in this comment. /**************************************************************** ** ** ** Name: KeHo Software Function Bibliothek ** ** Author: Achim Kern ** ** Version: 1.0 ** ** Date: 14.12.2012 ** ** Interpreter: Hollywood ** ** Licence: Freeware ** ** Function: provide functions for software projects ** ** ** ** History: ** ** ** ** 1.0: (14.12.2012) ** ** ** ** - initial release ** ** ** ****************************************************************/ /* Hollywood Version required */ @VERSION 5,2 /* the KeHo Software bibliothek provides actual the following functions Function p_GetPrivateProfilString(Group$,SearchString$,Default$,FileName$) TASK read data strings out of a ini-file example test$=p_GetPrivateProfilString("[REGISTRIERUNG]","USERSTREET","Rue Noir 12","usa.ini") -Group$ name of the group in your ini-file - always in brackets -SearchString$ data entry name -Default$ if nothing is declared in your ini-file we take this string -FileName$ the filename of your ini-file */ /*-------------------------------------------------------------------------------*/ /* FUNCTION p_GetPrivateProfilString(Group$,SearchString$,Default$,FileName$) */ /* */ /* TASK : read data strings in an ini-file */ /* UPDATE : 04.04.2011 */ /*-------------------------------------------------------------------------------*/ Function p_GetPrivateProfilString(Group$,SearchString$,Default$,FileName$) ;test$=p_GetPrivateProfilString("[REGISTRIERUNG]","USERSTREET","Rue Noir 12","usa.ini") Local FOUND=False Local len0=StrLen(Group$) Local len1=StrLen(SearchString$) OpenFile(1,FileName$) While Not Eof(1) Local string$=ReadLine(1) Local test$=LeftStr(string$,len0) If test$=Group$ While Not Eof(1) string$=ReadLine(1) test$=LeftStr(string$,len1) If (test$=SearchString$) And (FOUND=False) string$=UnrightStr(string$,len1+1) FoundString$=string$ FOUND=True EndIf Wend EndIf Wend CloseFile(1) If FOUND=True Then PrivateProfilString$=FoundString$ Else PrivateProfilString$=Default$ Return(PrivateProfilString$) EndFunction
| | | Comment by: Tarzin (86.72.2.208) | At: 15 Dec 2012, 11:33 | File version: 1.3 | Thanks for the update and sharing!
| | | Comment by: gtmooya (78.150.122.230) | At: 13 Dec 2012, 19:23 | File version: 1.3 | Thanks for the update, looking forward to taking a look at the new functions!
| | | Comment by: djrikki (81.104.219.70) | At: 30 Oct 2011, 21:59 | File version: 0.6 | Thanks Tarzin. You should fine this new 0.6 release more interesting. More functions added and comes with an Application Template that hopefully will get more 'good' looking applications created in Hollywood out the door.
| | | Comment by: Tarzin (212.99.90.190) | At: 08 Jun 2011, 17:27 | File version: 0.1 | Thank you so much for sharing your functions! Hope to see more releases! Jack is great! :-)
| | | Comment by: djrikki (81.104.215.132) | At: 07 Jun 2011, 19:30 | File version: 0.1 | I'll think you'll find that p_htmlUncode will end up ai endless if your try and replace & and the other one, so either comment them out if you don't need them or adjust the loop. Sorry should have spotted it first, but meh.
| | |
|