Get Oracle TNS Connection Names - Revision history

82.127.87.156: /* The Script */

2009-04-17T16:55:48Z

The Script

â† Older revision		Revision as of 16:55, 17 April 2009
Line 65:		Line 65:
	StrCmp $R7 " " whitespace		StrCmp $R7 " " whitespace
	StrCmp $R7 " " whitespace		StrCmp $R7 " " whitespace
	StrCmp $R7 "$		StrCmp $R7 "$\r" whitespace
	" whitespace		StrCmp $R7 "$\n" whitespace
	StrCmp $R7 "$
	" whitespace
	StrCmp $R7 "(" openparen		StrCmp $R7 "(" openparen
	StrCmp $R7 ")" closeparen		StrCmp $R7 ")" closeparen
Line 78:		Line 76:
	StrCmp $R8 " " syntaxerror		StrCmp $R8 " " syntaxerror
	StrCmp $R8 " " syntaxerror		StrCmp $R8 " " syntaxerror
	StrCmp $R8 "$		StrCmp $R8 "$\r" syntaxerror
	" syntaxerror		StrCmp $R8 "$\n" syntaxerror
	StrCmp $R8 "$
	" syntaxerror
	blank:		blank:
	StrCpy $R6 "$R6$R7"		StrCpy $R6 "$R6$R7"

82.127.87.156: /* The Script */

2009-04-17T16:54:35Z

The Script

â† Older revision		Revision as of 16:54, 17 April 2009
Line 38:		Line 38:

	; The path of the TNS names file		; The path of the TNS names file
	StrCpy $R2 "$R2		StrCpy $R2 "$R2\network\admin\tnsnames.ora"
	~~etwork~~\admin\tnsnames.ora"

	; Open the TNS names file		; Open the TNS names file

67.101.8.18: fixed link

2006-11-09T23:04:45Z

fixed link

â† Older revision		Revision as of 23:04, 9 November 2006
Line 2:		Line 2:

	Required Functions:		Required Functions:
	[[GetDefaultOracleHomePath]]		[[Get Default Oracle Home Path\|GetDefaultOracleHomePath]]
	[[Trim]]		[[Trim]]

Line 66:		Line 66:
	StrCmp $R7 " " whitespace		StrCmp $R7 " " whitespace
	StrCmp $R7 " " whitespace		StrCmp $R7 " " whitespace
	StrCmp $R7 "$ " whitespace		StrCmp $R7 "$
			" whitespace
	StrCmp $R7 "$		StrCmp $R7 "$
	" whitespace		" whitespace
Line 78:		Line 79:
	StrCmp $R8 " " syntaxerror		StrCmp $R8 " " syntaxerror
	StrCmp $R8 " " syntaxerror		StrCmp $R8 " " syntaxerror
	StrCmp $R8 "$ " syntaxerror		StrCmp $R8 "$
			" syntaxerror
	StrCmp $R8 "$		StrCmp $R8 "$
	" syntaxerror		" syntaxerror

ConversionBot: Adding new author and category links.

2005-06-24T12:20:00Z

Adding new author and category links.

â† Older revision		Revision as of 12:20, 24 June 2005
Line 1:		Line 1:
	{~~\|align=right~~		{{PageAuthor\|Iceman_K}}
	~~\|<small>Author: [[~~{~~{ns:2}}:Iceman_K~~\|Iceman_K~~]] ([[{{ns:3}}:Iceman_K\|talk]], [[{{ns:-1}~~}~~:Contributions/Iceman_K\|contrib]])</small>~~
	\|}
	~~<br style="clear:both;">~~
	Required Functions:		Required Functions:
	[[GetDefaultOracleHomePath]]		[[GetDefaultOracleHomePath]]
Line 135:		Line 133:
	</highlight-nsis>		</highlight-nsis>

	[[~~{{ns:14}}~~:Database Functions]]		[[Category:Database Functions]]

ConversionBot: Added category links.

2005-04-30T21:35:32Z

Added category links.

â† Older revision		Revision as of 21:35, 30 April 2005
Line 134:		Line 134:
	FunctionEnd		FunctionEnd
	</highlight-nsis>		</highlight-nsis>

			[[{{ns:14}}:Database Functions]]

ConversionBot: Updated author links.

2005-04-30T02:58:16Z

Updated author links.

@@ Line 1: / Line 1: @@
 Required Functions:
 [[GetDefaultOracleHomePath]]
@@ Line 130: / Line 134: @@
 FunctionEnd
 </highlight-nsis>

ConversionBot: Updated author and download links, and changed format of some pages.

2005-04-23T12:39:05Z

Updated author and download links, and changed format of some pages.

â† Older revision		Revision as of 12:39, 23 April 2005
Line 131:		Line 131:
	</highlight-nsis>		</highlight-nsis>

	Page author: Iceman_K		Page author: [[User:Iceman_K\|Iceman_K]]

ConversionBot: Wikipedia python library

2005-04-09T20:18:30Z

Wikipedia python library

New page

Required Functions:
[[GetDefaultOracleHomePath]]
[[Trim]]

== The Script ==
<highlight-nsis>
;
; Returns the list of Oracle TNS Connection Names separated by the
; pipe ("|") symbol, suitable for setting the ListItems attribute
; in an InstallOptions DropList.
;
; Requires: GetDefaultOracleHomePath
; Requires: Trim
;
; Usage:
;
; Call GetOracleConnections
; Pop $0
;

Function GetOracleConnections
ClearErrors
Push $R1 ;The connection list
Push $R2 ;Line read from tnsnames.ora
Push $R3 ;File handle
Push $R4 ;Flag indicating whether connection name has been captured
Push $R5 ;Parentheses count
Push $R6 ;Current connection name
Push $R7 ;Character being currently processed
Push $R8 ;Temp var

StrCpy $R1 ""
Call GetOracleDefaultHomePath
Pop $R2
StrCmp $R2 "" done

; The path of the TNS names file
StrCpy $R2 "$R2
etwork\admin\tnsnames.ora"

; Open the TNS names file
StrCpy $R3 ""
FileOpen $R3 $R2 "r"
StrCmp $R3 "" fileerror
ClearErrors
StrCpy $R1 ""
reset:
; Reset variables
StrCpy $R4 "0"
StrCpy $R5 "0"
StrCpy $R6 ""
read:
; Read a line from the file
FileRead $R3 $R2
StrCmp $R2 "" 0 loop
IfErrors closefile read

; Loop through the characters in the line just read
loop:
StrCpy $R7 $R2 1
StrCmp $R7 "" read
StrCpy $R2 $R2 "" 1
StrCmp $R7 "#" comment
StrCmp $R7 " " whitespace
StrCmp $R7 " " whitespace
StrCmp $R7 "$
" whitespace
StrCmp $R7 "$
" whitespace
StrCmp $R7 "(" openparen
StrCmp $R7 ")" closeparen
StrCmp $R7 "=" equal
StrCmp $R4 "1" loop
append:
StrCmp $R6 "" blank
StrCpy $R8 $R6 1 -1
StrCmp $R8 " " syntaxerror
StrCmp $R8 " " syntaxerror
StrCmp $R8 "$
" syntaxerror
StrCmp $R8 "$
" syntaxerror
blank:
StrCpy $R6 "$R6$R7"
GoTo loop
comment:
StrCmp $R6 "" read
StrCmp $R4 "1" read syntaxerror
whitespace:
StrCmp $R6 "" loop
StrCmp $R4 "1" loop append
equal:
StrCmp $R4 "1" loop
StrCpy $R4 "1"
GoTo loop
openparen:
StrCmp $R4 "1" 0 syntaxerror
IntOp $R5 $R5 + 1
GoTo loop
closeparen:
StrCmp $R4 "1" 0 syntaxerror
IntOp $R5 $R5 - 1
IntCmp $R5 0 0 syntaxerror loop
Push $R1
Call Trim
Pop $R1
StrCmp $R1 "" +2
StrCpy $R1 "$R1|"
StrCpy $R1 "$R1$R6"
GoTo reset
closefile:
FileClose $R3
GoTo done
fileerror:
MessageBox MB_OK "File access error: tnsnames.ora."
StrCpy $R1 ""
GoTo done
syntaxerror:
MessageBox MB_OK "File syntax error: tnsnames.ora."
StrCpy $R1 ""
StrCmp $R3 "" +2
FileClose $R3
done:
Pop $R8
Pop $R7
Pop $R6
Pop $R5
Pop $R4
Pop $R3
Pop $R2
Exch $R1
FunctionEnd
</highlight-nsis>

Page author: Iceman_K