Sample VBScript Function to Extract a Substring from a String Variable - Support

Sample VBScript Function to Extract a Substring from a String Variable

From Support

Jump to: navigation, search

<% @ LANGUAGE = VBScript %> <% Option Explicit %>


'*************************************************************************************** ' ' Define VBScript Functions ' '*************************************************************************************** <% Function StrExtractSubstring(sFieldToParse,iPadToLength,iStart,iLength)

dim lcwork dim lcreturnvalue

'-------------------------------------- 'Convert all variants to strings '-------------------------------------- lcwork = Rtrim(cstr(sFieldToParse))

'-------------------------------------- 'Loop thru variable and pad variable to selected length '-------------------------------------- Do While Len(lcwork) < iPadToLength 

  lcWork = lcWOrk & " "

Loop

'-------------------------------------- 'Set return value '-------------------------------------- lcreturnvalue = Mid(lcwork,iStart,iLength) StrExtractSubstring = lcReturnValue

end function

<%

'*************************************************************************************** ' ' Ensure that this page is not cached ' '*************************************************************************************** Response.Expires = 120

Dim objAS400FILE 'ASP/400 file object Dim rtnAS400 'AS/400 Return Variable

'------------------------------ ' Open AS/400 Customer File '------------------------------ Set objAS400FILE = CreateObject("iASP400.AS400File") rtnAS400=objAS400FILE.OpenFile(sAS400System,"QIWS/QCUSTCDT(*FIRST)",0)

%>

<html> <head> <title>Sample Customer Listing from AS/400</title> </head> <body> Sample Customer Listing from AS/400 <strong></FONT>
<strong>File: QIWS/QCUSCDT <strong>

<strong>Click the Refresh button to re-test the sub-second AS/400 Database Access response times.</strong>

<% '---------------------------------- 'Move to first record in table '---------------------------------- rtnAS400=objAS400FILE.MoveFirst() Response.Write "Rtn Code:" & rtnAS400 '---------------------------------- 'Read all records and display them '---------------------------------- do while rtnAS400 = 0 if rtnAS400 = 0 then %>

Customer Number

LastName/Init

Street

City/State/Zip

<% 'Response.Write objAS400File.Field("CUSNUM") Response.Write StrExtractSubstring(objAS400File.Field("CUSNUM"),6,1,2) Response.Write "-" Response.Write StrExtractSubstring(objAS400File.Field("CUSNUM"),6,3,2) Response.Write "-" Response.Write StrExtractSubstring(objAS400File.Field("CUSNUM"),6,5,2)

%>

<% Response.Write objAS400File.Field("LSTNAM") + "," + objAS400File.Field("INIT") %> </TD>

<% Response.Write objAS400File.Field("STREET") %> </TD>

<% Response.Write objAS400File.Field("CITY") + " ," + objAS400File.Field("STATE") + " " + objAS400File.Field("ZIPCOD") %> </TD> </TR>


<% 

 end if 
 rtnAS400=objAS400File.MoveNext()
 loop

%>

<% '---------------------------------- 'Move to first record in table '---------------------------------- rtnAS400=objAS400FILE.MoveFirst()

Response.Write "Rtn Code:" & rtnAS400

'---------------------------------- 'Read all records and display them '---------------------------------- do while rtnAS400 = 0

if rtnAS400 = 0 then

%>

<% Response.Write objAS400File.Field("CUSNUM") %>

<% Response.Write objAS400File.Field("LSTNAM") + "," + objAS400File.Field("INIT") %> </TD>

<% Response.Write objAS400File.Field("STREET") %> </TD>

<% Response.Write objAS400File.Field("CITY") + " ," + objAS400File.Field("STATE") + " " + objAS400File.Field("ZIPCOD") %> </TD> </TR>


<% 

 end if 
 rtnAS400=objAS400File.MoveNext()
 loop

%>

</TABLE>

<% 'Reset object variable objAS400FILE.close set objAS400FILE=nothing %>

Powered by ASP/400 AS/400 Web Access Technology
Providing Fast, Safe and Secure AS/400 Data Access via the Web

</body> </html>

Retrieved from "http://wiki.rjssoftware.com/wiki/index.php/Sample_VBScript_Function_to_Extract_a_Substring_from_a_String_Variable"
Personal tools