hw_app_template.lha development/example - Comments

Achim Kern (79.222.62.198) @ 15 Dec 2012, 02:14.15

Sat, 15 Dec 2012 14:14:15 +0100

By: Achim Kern (79.222.62.198)

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

Achim Kern (79.222.62.198) @ 15 Dec 2012, 02:13.58

Sat, 15 Dec 2012 14:13:58 +0100

By: Achim Kern (79.222.62.198)

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

Tarzin (86.72.2.208) @ 15 Dec 2012, 11:33.02

Sat, 15 Dec 2012 11:33:02 +0100

By: Tarzin (86.72.2.208)

Thanks for the update and sharing!

gtmooya (78.150.122.230) @ 13 Dec 2012, 07:23.12

Thu, 13 Dec 2012 19:23:12 +0100

By: gtmooya (78.150.122.230)

Thanks for the update, looking forward to taking a look at the new functions!

djrikki (81.104.219.70) @ 30 Oct 2011, 09:59.23

Sun, 30 Oct 2011 21:59:23 +0100

By: djrikki (81.104.219.70)

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.

Tarzin (212.99.90.190) @ 08 Jun 2011, 05:27.49

Wed, 08 Jun 2011 17:27:49 +0200

By: Tarzin (212.99.90.190)

Thank you so much for sharing your functions! 
Hope to see more releases! 
 
Jack is great! :-)

djrikki (81.104.215.132) @ 07 Jun 2011, 07:30.11

Tue, 07 Jun 2011 19:30:11 +0200

By: djrikki (81.104.215.132)

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.