Children objects has negative co-ordinates in Browserchild

Last year, one web based product has been revamped with our own reporting modules. Lot of javascripts used for this reporting. Silktest is able to identify the HtmlTable and HtmlColumn objects properly. But the co-ordinates are shown wrong. Each click action is done in different point instead of expected point. Only X-Axis position got changed. See the RECT info below.

BrowserChild (Parent) rect: {195, 175, 827, 538}
Htmltable rect: {-77, 323, 818, 574}

It is varying for different kind of reports. Testcases need to do left-mouse click and right-mouse clicks. I have set few variables for position changes. I have written the code like below. In the Runtime, XAxis changes (ixGridInc) are calculated dynamically. I have given the code below:

4Test code - To set the Table position dynamically

 
[-] void SetGridTablePosChanges (Window wTable)
 [ ] // To set xAxis and YAxis increments (changes)
 [ ] // Position changes.
 [ ] Window wParent
 [ ] Boolean bxGetPos = FALSE
 [ ] String sWinTag, sMainFrameTag
 [ ]  
 [ ] RECT rtTblCell = wTable.GetRect (TRUE)
 [ ] Print ("table rect: {rtTblCell}")
 [ ] 
 [-] if (ixGridInc == -1)
  [ ] Print ("Grid xAxis increment is going to set.")
  [ ] ixGridPos = rtTblCell.xPos
  [ ] // iyGridPos = rtTblCell.yPos
  [ ] bxGetPos = TRUE
 [-] else if (ixGridPos != rtTblCell.xPos)
  [ ] bxGetPos = TRUE
  [ ] ixGridPos = rtTblCell.xPos
  [ ] // iyGridPos = rtTblCell.yPos
 [-] else
  [ ] Print ("Already Grid xAxis increment is available.")
 [ ] 
 [-] if (bxGetPos)
  [ ] 
  [ ] sMainFrameTag = WindowTag (wTable)
  [ ] sWinTag = GetField (sMainFrameTag,"[BrowserChild]",3)
  [ ] Print ("Whole Table  tag: {sMainFrameTag}")
  [ ] Print ("Parent tag: {sWinTag}")
  [-] if (MatchStr ("*[6]*",sWinTag) || MatchStr ("*mainFram*",sWinTag))
   [ ] wParent = MyReportPage
   [ ] RECT rtTblCell2 = wParent.GetRect (TRUE)
   [ ] Print ("Parent rect: {rtTblCell2}")
   [ ] 
   [-] if ((rtTblCell.xPos < (rtTblCell2.xPos + XAXIS_TABLE_DIFF)) )
     [ ] ixGridInc = rtTblCell2.xPos - (rtTblCell.xPos) + XAXIS_TABLE_DIFF
     [ ] Print ("X Axis changed Position: {ixGridInc}")
  [-] else
   [ ] Print ("Parent{wParent} is not expected one.")

Automating Windows/Unix/Linux Server calls by w3Sockets

Earlier I have written a post Expect-Automating Command line tools for Expect utility. Now we can access any server machines by using VBScript. Dimac Development has implemented a COM interface to connect through Telnet and made as freeware. You need to download w3Sockets Dll and register it using SocketReg.exe included in a zip file. It is similar to expect utility. You can verify each command and can change the execution flow based on console output. It is much useful for automated testing as well as server administration. Below I have given a sample code to start windows services.

w3Sockets Reference
w3Sockets - Download Page

To start servers on Windows/Unix/Linux Systems

 
'To start servers on Windows/Unix/Linux server
Dim w3sock

Set w3sock = CreateObject("socket.tcp")
With w3sock
    .timeout = 5000
    .DoTelnetEmulation = True
    .TelnetEmulation = "TTY"
    .Host = "myserver:23"
    .Open
    .WaitFor "login:"
 WScript.Echo .Buffer
    .SendLine "myloginid"
    .WaitFor "password:"
    .SendLine "Password12"
    .WaitFor ">"
    .SendLine "net start ""MyServer Manager"""
    .WaitFor ">"
 WScript.Echo .Buffer
    .SendLine "net start ""MYDB Repository"""
    .WaitFor ">"
 WScript.Echo .Buffer
    .Close
End With
Set w3sock = Nothing

Lightweight Directory Access Protocol

Last few months, I'm trying to put a post for LDAP. Now LDAP is widely used in many companies. LDAP Testing is bit different from (native mode) user authentication. Again It is divided as single domain and multi-domain LDAP. Test team is treating LDAP as a another environment/stack to certify any product.

LDAP - Lightweight Directory Access Protocol. LDAP has become a mandatory in IT Projects. It is a set of protocols for accessing information directories. LDAP is based on the standards contained within the X.500 standard, but is significantly simpler. Also unlike X.500, LDAP supports TCP/IP, which is necessary for any type of Internet access.

The LDAP Interchange Format (LDIF), defined in RFC 2849, is a standard text file format for storing LDAP configuration information and directory contents. The dn attribute uniquely identifies the DN of the entry. In its most basic form, an LDIF file is:

• A collection of entries separated from each other by blank lines


• A mapping of attribute names to values


• A collection of directives that instruct the parser how to process the information

Descriptions for commonly used abbreviations:

• cn - Common Name


• ou - Organizational Unit


• dc - Domain Component


• dn - Distinguished Name


• rdn - Relative Distinguished Name


• upn - User Principal Name

Sample LDAP configuration:
Principal : cn=admin,cn=Users,DC=rmdomain,DC=com
Users baseDN : DC=rmdomain,DC=com
Group baseDN : DC=rmdomain,DC=com
Bind User DN : cn=admin,cn=users,dc=rmdomain,dc=com

To know more about LDAP

Wiki - Lightweight Directory Access Protocol
LDAP Concepts & Overview
LDAP Authentication

Saving Clipboard contents as Image

Scenario 1:
Earlier I had a challenging task to automate SVG charts. There are two issues. Major issue is, Silktest does not identify SVG Chart as any object (custom/HtmlImage). Second one is taking Bitmap image for the chart. SVG chart gives the flexibility by 'Copy SVG' feature. Using this we can copy the chart image. It can be saved as text or Image file.

Scenario 2:
Last month, I have posted VBA - Extract Pictures from Excel . It works fine, if this VBA code is executed as Excel Macro. But the same code does not extract the image with the right quality, after running as VB Script. I got the problem, while saving/pasting the clipboard copy. I was forced to find a way to implement a method, to save clipboard image as a image file.

Solution:
IrfanView is a windows graphic viewer and it is a freeware utility. It can be used command-line utility. It has a command-line option to save the clipboard image as image file. You can save the image in many different formats.

Syntax to Convert clipboard image as image file:
/clippaste - paste image from the clipboard.

Below I have given the way to implement in VBScript and Silktest.
Silktest code:

[ ] // To save the image
[ ] SYS_Execute ("D:\autostuff\i_view32.exe /silent /clippaste /convert=D:\my_scripts\testdata\zsvg1.bmp")

VB Script code:

'-------------------------------------------------------------------------
' Method    :   CreateImageFromClipBoard
' Author    :   Palani Selvam
' Purpose   :   It gets the clipboard image and convert as a image file.
' Parameters:   FileName - String, contains the BMP file name
'        iIndex - Integer, contains the Worksheet index
' Returns   :   String. The replaced file name it gives.
' Caller    :   - Nil
' Calls     :   - Nil
'-------------------------------------------------------------------------
Sub CreateImageFromClipBoard(sFileName)

    Dim wshShell,ShellReturnCode, sCmdExec
    
  Set WshShell = WScript.CreateObject("WScript.Shell")
  sCmdExec = "D:\autostuff\i_view32.exe /silent /clippaste /convert="& sFileName 

  ShellReturnCode = WshShell.Run(sCmdExec, 1, True)  
    
End Sub

Modified VB Script code for VBA - Extract Pictures from Excel
Note: Few function calls are from my vbscript library.

'--------------------------------------
' Method    :   ReadExcel
' Author    :   T. Palani Selvam
' Purpose   :   Read all the contents from Excel sheet and write into log file
' Parameters:   sExcelFile - String, contains the Excel file
'      :  iSheetIndex - Integer, Value for Sheet Index
' Returns   :   - Nil
' Caller    :   - Nil
' Calls     :   - Nil
'--------------------------------------
Sub ReadExcel(sExcelFile, iSheetIndex)
 Dim sExcelPath 'As Variant  'Excel file
 '********** Excel object declaration **********'
  ' Excel Application object
 Dim objExcel 'As Excel.Application
 Dim objXLWorkbooks 'As Excel.Workbooks
 Dim objXLWorkbook 'As Excel.Workbook

 Dim WorkSheetCount 'As Variant  'Work sheets count in a excel
 Dim CurrentWorkSheet 'As Excel.Worksheet    ' Current worksheet
 Dim objCells 'As Excel.Range
 Dim objCurrentCell 'As Variant
 Dim objFont 'As Variant

 ' Result contents
 Dim sCellText 'As Variant
 Dim sFontName 'As Variant
 Dim sFontStyle 'As Variant
 Dim iFontSize 'As Variant
 Dim iCellTextColorIndex 'As Variant
 Dim iCellInteriorColorIndex 'As Variant
 Dim sResult 'As Variant
 Dim sChartFile 'As String


 ' Row and Col integer variables
 Dim iUsedRowsCount 'As Integer
 Dim iUsedColsCount 'As Integer
 Dim iTop, iLeft 'As Integer
 Dim iRow 'As Integer     'Row item
 Dim iCol 'As Integer     'Col item
 Dim iCurRow 'As Integer
 Dim iCurCol 'As Integer


 If (sExcelFile = "") Then
   sExcelPath = "D:\my_scripts\Basic Wks.xls"
 Else
   sExcelPath = sExcelFile
 End If

 If (iSheetIndex = "") Then
  iSheetIndex = 2
 End If


 Call FileDeleteAndCreate (gsLogFile)

 'XL file check
 If (FileExists(sExcelPath) <> 0) Then
  Call LogWrite (gsLogFile, "The Excel file " & Chr(34) & sExcelPath & Chr(34) & " does not exit!")
  Exit sub
 End If

 Set objExcel = CreateObject("Excel.Application")
 objExcel.Workbooks.Open sExcelPath, False, True

 On Error Resume Next

 Set objXLWorkbook = objExcel.ActiveWorkbook
 'objXLWorkbook.RunAutoMacros
 
 WorkSheetCount = objXLWorkbook.Worksheets.Count

 Set CurrentWorkSheet = objExcel.ActiveWorkbook.Worksheets(iSheetIndex) 'iSheetIndex worksheet

 iUsedRowsCount = CurrentWorkSheet.UsedRange.Rows.Count
 iUsedColsCount = CurrentWorkSheet.UsedRange.Columns.Count
 iTop = CurrentWorkSheet.UsedRange.Row
 iLeft = CurrentWorkSheet.UsedRange.Column

 ' Cells object
 CurrentWorkSheet.Cells.Activate


 For iRow = iTop To iUsedRowsCount-1   '(iUsedRowsCount - 1)
   'Read All rows
   For iCol = iLeft To iUsedColsCount  '(iUsedColsCount - 1)

     sResult = ""
     Set objCurrentCell = CurrentWorkSheet.Cells(iRow, iCol)
     sCellText = objCurrentCell.Text


     If ((sCellText = Empty)) Then


       sResult = "Reading Cell {" & CStr(iRow) & ", " & CStr(iCol) & "}^" &"  "& "^" & "  " & "^" & "  " & "^" & "  " & "^" & "  " & "^" & "  "

       Call LogWrite (gsLogFile, sResult)

     Else
       Set objFont = objCurrentCell.Font
       sFontName = objFont.Name
       sFontStyle = objFont.FontStyle
       iFontSize = objFont.Size
       iCellTextColorIndex = objFont.Color
       iCellInteriorColorIndex = objCurrentCell.Interior.ColorIndex



       If (sFontName = Empty) Then
         sFontName = "empty"
       End If
       If (sFontStyle = Empty) Then
         sFontStyle = "empty"
       End If
       If (iFontSize = Empty) Then
         iFontSize = "-99999999"
       End If
       If (iCellTextColorIndex = Empty) Then
         iCellTextColorIndex = "99999999"
       End If
       If (iCellInteriorColorIndex = Empty) Then
         iCellInteriorColorIndex = "99999999"
       End If


       sResult = "Reading Cell {" & CStr(iRow) & ", " & CStr(iCol) & "}^" & sCellText & "^" & CStr(iCellInteriorColorIndex) & "^" & sFontName & "^" & CStr(sFontStyle) & "^" & CStr(iFontSize) & "^" & CStr(iCellTextColorIndex)

       Call LogWrite (gsLogFile, sResult)

     End If

     Set objCurrentCell = Nothing


   Next

 Next
 'Get the Chart now
 'sChartFile = Replace (sExcelFile,".xls",".png")
 sChartFile = Replace (sExcelFile,".xls",".bmp")
 
  '*****************************
  ' Place for Chart creation
    objExcel.ScreenUpdating = False
    
  Dim iIndex,iPictureHeight,iPictureWidth,iShapeCount
  Dim aShape, aChart, aShapeChart, aChart1
  Dim sPictureShape, sChartName, sCurrentSheet
 
 
 'Set aWorkSheet = ActiveWorkbook.ActiveSheet
 
 sCurrentSheet = CurrentWorkSheet.Name
  
 For iIndex = 1 To CurrentWorkSheet.Shapes.Count
 
  Set aShape = CurrentWorkSheet.Shapes(iIndex)
  sPictureShape = aShape.Name    
  'Picture 1 Name,  13
  
  If Left(aShape.Name, 7) = "Picture" Then
   aShape.CopyPicture
   Call CreateImageFromClipBoard (sChartFile)
     
   ''objExcel.ScreenUpdating = True
   Exit For

  End If
 Next
 
 if FileExists(sChartFile)=0 Then
  Call LogWrite (gsLogFile, "Chart Image: " & sChartFile)
 End If
 
 ' This will prevent Excel from prompting us to save the workbook.
 objExcel.ActiveWorkbook.Saved = True
 Set CurrentWorkSheet = Nothing

 'objExcel.Worksbooks.Close
 objExcel.Quit

 ''Set CurrentWorkSheet = Nothing
 Set objExcel = Nothing

 'MsgBox "Read Completed.", vbOKOnly, "Exec Over"
 Exit Sub

 ErrorHandler1:
 'MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
 'Err.Clear   ' Clear the error.
End Sub

Convert failed testcases as a testplan

We have few silktest automation projects. One project is used to execute by suite. Another one is ran by batch (*.bat) file, which has few sub-plans. I am not able to run the failed cases from all results at one shot. I was looking an utility, similar to 'Mark failures in Plan' in the results menu. I thought to implement a 4test script to convert failed testcases as a testplan and I did it.

4Test code - Create testplan for failed cases only

[ ] LIST OF STRING glsFailedScripts = {}
[ ] 
[+] testcase ConvertTestPlan_SingleFile () appstate none
[ ] 
[ ] STRING sResFile = "D:\Auto_Scripts\Results\MyStuff_MasterPlan.res "
[ ] STRING sRexFile = "D:\Auto_Scripts\Results\MyStuff_MasterPlan1.rex "
[ ] STRING sMyPlanFile =  "D:\Auto_Scripts\Results\zSingleFailed.pln "
[ ] 
[ ] glsFailedScripts = {}
[ ] CreateFileFromTemplate(sPlanTemplate,sMyPlanFile)
[ ] ResExport (sResFile,sRexFile)
[ ] ProcessSingleREXFile (sRexFile,sMyPlanFile)
[ ] 
[ ] Agent.DisplayMessage ("test","Completed.")
[ ] 
[-] // functions
[+] Boolean GetFailedTestInfo (STRING sRexLine, out LIST OF STRING lsPlanInfo)
[ ] 
[ ] // Title
[ ] //TestPlan Script TestCase TestData ErrorCount ErrorText DateTime Elapsed
[ ] 
[ ] // Samples
[ ] // "D:\Auto_Scripts\PlanFiles\MyStuff_MasterPlan.pln","D:\Auto_Scripts\Scripts\FamilyFunctions.t","FamilyFunctions_DimensionFunctions_5",
[ ] // "Verify user sees a proper error message by clicking OK button.",0,"","2008-08-18 21.52.06","0:00:00"
[ ] 
[ ] STRING sScript
[ ] STRING sTestCase
[ ] STRING sTestData,sFormattedData
[ ] STRING sTestTime
[ ] STRING sErrCount, sErrCount1
[ ] INTEGER iPos
[ ] 
[ ] // Initialization
[ ] STRING sIndentation = " "
[ ] STRING sIndentation1 = "[+]  "  // Level1
[ ] STRING sIndentation2 = " [ ] " // Level2
[ ] 
[ ] STRING sSeperator = ""","""
[ ] STRING sErrSeperator = ","""   //",""***"
[ ] STRING sDataSeperator = """,0,"""
[ ] STRING sErrSeperator1 = """"
[ ] Boolean bResult = FALSE
[ ] lsPlanInfo = {}
[ ] 
[ ] sErrCount1  = GetField (sRexLine,sSeperator,4)
[ ] sErrCount  = GetField (sRexLine,sDataSeperator, 2)
[ ] //if ((Trim(sErrCount) != "") && (Val(sErrCount) > 0))
[+] if ((Trim(sErrCount) == "")  && (Trim(sErrCount1) != "") )
[ ] Print ("Considering line: {sRexLine}")
[ ] bResult = TRUE
[ ] sScript   = GetField (sRexLine,sSeperator,2)
[ ] sTestCase   = GetField (sRexLine,sSeperator,3)
[ ] sTestTime = GetField (sRexLine,sSeperator,6)
[ ] Print ("Elapsed: {sTestTime}")
[+] if (sTestTime == "")
[+] sFormattedData   = ""
[ ] iPos = StrPos (sErrSeperator, sTestCase,TRUE)
[+] if (iPos > 0)
[ ] Print ("sTestCase:{sTestCase}: iPos:{iPos}")
[ ] sTestCase = SubStr (sTestCase, 1,iPos - 4)
[ ] Print ("Before formatting, sTestCase:{sTestCase}")
[ ] //sTestCase = StrTran (sTestCase,"\","")
[ ] Print ("After formatting, sTestCase:{sTestCase}")
[ ] 
[+] else
[ ] sTestData   = GetField (sRexLine,sSeperator,4)
[+] if (MatchStr ("*,?,""*",sTestData))
[ ] iPos = StrPos (sErrSeperator, sTestData,TRUE)
[+] if (iPos > 0)
[ ] Print ("TestData:{sTestData}: iPos:{iPos}")
[ ] sTestData = SubStr (sTestData, 1,iPos - 4)
[ ] Print ("Before formatting, TestData:{sTestData}")
[ ] sFormattedData = StrTran (sTestData,"\","")
[ ] Print ("After formatting, TestData:{sTestData}")
[ ] 
[ ] Print ("TestCase: {sTestCase}")
[ ] Print ("TestData: {sFormattedData}")
[ ] 
[+] if ( (glsFailedScripts == {}) || (glsFailedScripts[ListCount(glsFailedScripts)] != sScript) )
[ ] ListAppend (glsFailedScripts,sScript)
[ ] ListAppend (lsPlanInfo,"{sIndentation1}#script: {sScript}")
[+] // if (Trim (sTestData) != "")
[ ] // ListAppend (lsPlanInfo,"{sIndentation2}#testdata: {sFormattedData}")
[ ] ListAppend (lsPlanInfo,"{sIndentation2}#testcase: {sTestCase}({sFormattedData})")
[ ] 
[+] else
[ ] Print ("Not Considering line: {sRexLine}")
[ ] 
[ ] return bResult
[+] public void TestPlanWrite(STRING sPlanFile, ANYTYPE aMsg)
[ ] // To write content into log file
[ ] HFILE hFile
[ ] STRING sItem
[ ] 
[ ] hFile = FileOpen (sPlanFile, FM_APPEND)
[+] switch TypeOf (aMsg)
[+] case STRING
[ ] FileWriteLine(hFile,"{aMsg}")
[+] case  LIST OF STRING
[+] for each sItem in aMsg
[ ] FileWriteLine(hFile,"{sItem}")
[+] default
[ ] Print ("Non supported element for TestPlanWrite: {TypeOf (aMsg)}")
[ ] FileWriteLine(hFile,"{aMsg}")
[ ] 
[ ] FileClose (hFile)
[ ] 
[ ] 
[+] VOID ProcessSingleREXFile (String sRexFile, STRING sPlanFile)
[ ] // To create a testplan
[ ] // Implemented for Auto Scripts 
[ ] // It will read the text file 
[ ] 
[+] // Parsing REX file and then writing into plan file
[ ] HFILE hInFile
[ ] STRING sLine
[ ] LIST OF STRING lsPlan
[ ] 
[ ] hInFile = FileOpen (sRexFile,FM_READ)
[ ] 
[+] while (FileReadLine (hInFile, sLine))
[+] if (GetFailedTestInfo (sLine,lsPlan))
[ ] TestPlanWrite (sPlanFile,lsPlan)
[ ] 
[ ] FileClose (hInFile)

Converting Bitmap to GIF/JPG image

Earlier I have written a post about Automation Basics - Capturing Failures . Almost all the GUI testing tools are providing built-in functions to take the snapshot of screen. Snapshot can be taken for given screen co-ordinates or entire object.

Mostly these snapshots are stored as bitmap (*.bmp) files. Bitmap files are occupying more hard-disk space. It is difficult to maintain all the snapshots for each build in release-wise. IrfanView is a windows graphic viewer and it is a freeware utility. It has many command-line options for image related actions. You can just copy the executable file to another machine and can open or use immediately.

Syntax to Convert one image to another image format:
/convert=filename - convert input file to 'filename' and close IrfanView

Below I have given the way to implement in Silktest. This can be done for any testing tool.

[ ] //convert the image
[ ] SYS_Execute ("D:\autostuff\i_view32.exe {sBmpImage} /silent /convert={sGifImage}")

Restart Silktest Agent at Runtime

Last few months, I faced one issue and solved it by restarting silktest Agent.
Problem
We have a silktest suite for our Excel AddIn. It is developed by DotNet Framework. Silktest DotNet extension goes off after running 75-200 tests. Also facing this issue differently for both Excel 2003 and Excel 2007. Already I raised one post 'Application not responding" for this.

 
 [ ] *** Error: Application is not responding
 [ ] Occurred in Exists
 [ ] Called from MSExcelAddIns at ExcelRecoverySystem.inc(573)
 [ ] Called from ASCS_EAIBaseState at ExcelRecoverySystem.inc(684)
 [ ] Called from SymmetricReport at ExcelRecoverySystem.inc(714)
 [ ] Called from TestcaseEnter at ExcelRecoverySystem.inc(255)
 [ ] Called from PreservingFunctions_ReplaceWithUpper at PreservingFunctions.t(238)
 [ ] Error E_APP_NOT_RESPONDING) raised. Closing all applications
 [ ] *** Error: Application is not responding
 [ ] Occurred in Exists
 [ ] Called from KillExcelApp at ExcelRecoverySystem.inc(395)
 [ ] Called from CloseAllApps at ExcelRecoverySystem.inc(386)

Solution:
Later selected cases are executed fine, If I close silktest agent and re-run few cases. I am able to figure out, where/when it is not able to identify. Then I tried to restart the agent in that machine, while scripts are executing continuously.

4Test code: To restart Silktest Agent

 
[-] void RestartSilkAgent ()
 [ ] // To Restart Silktest Agent
 [ ] 
 [ ] STRING sAgent
 [ ] 
 [ ] 
 [ ] sAgent = GetMachineName ()
 [ ] Print ("Agent name: {sAgent}")
 [ ] Print (Desktop.GetActive ())
 [ ] Disconnect (sAgent)
 [ ] 
 [ ] Print ("**** Restarting Silktest Agent ...")
 [ ] SYS_Execute ("D:\SampleDotNet\RestartAgent.bat")
 [ ] Print ("**** Restarted Silktest Agent @@@@@@")
 [ ] 
 [ ] Connect (sAgent)
 [ ] Print (Desktop.GetActive ())
 [ ] 
[ ] 

VBA - Extract Pictures from Excel

Last month, I have written Excel Automation Using VBScript. Today this post is to extract Pictures from Excel. Generally We can not use Export method for pictures. But we can use for Excel charts. I tried to extract our SVG chart image by macro and I succeed on it. I got help from Export pictures from Excel Below I've given the VBA Macro code.

VBA Macro - To extract Picture from Excel

Sub GetFirstPicture()

Dim sCurrPath As String
Dim aWorkSheet As Excel.Worksheet
Dim aShape As Excel.Shape
Dim aShapeChart As Excel.Shape
Dim aPicture As Variant
Dim aChart As Excel.Chart
Dim sCurrentSheet As String

Dim aImage As Variant
Dim iIndex As Integer
Dim iShapeCount As Integer

Dim MyChart As String, MyPicture As String
Dim PicWidth As Long, PicHeight As Long
Dim sChartJpg As String
Dim sChartGif As String
Dim sChartBmp As String

'On Error GoTo ErrHandler
On Error Resume Next

Application.ScreenUpdating = False

sCurrPath = "D:\VB\MyTrials\ChartExpFromXL"
sChartJpg = "D:\VB\MyTrials\ChartExpFromXL.jpg"
sChartGif = "D:\VB\MyTrials\ChartExpFromXL.gif"
sChartBmp = "D:\VB\MyTrials\ChartExpFromXL.bmp"

Set aWorkSheet = ActiveWorkbook.ActiveSheet
sCurrentSheet = aWorkSheet.Name

'MsgBox CStr(msoTrue) + " value for MsoTrue"
' MsoTrue equals to -1
MsgBox "Shapes count " + CStr(aWorkSheet.Shapes.Count)
For iIndex = 1 To aWorkSheet.Shapes.Count

Set aShape = aWorkSheet.Shapes(iIndex)
MyPicture = aShape.Name
MsgBox aShape.Name + " Name, " + Str(aShape.Type)
'Picture 1 Name,  13
If Left(aShape.Name, 7) = "Picture" Then
With aShape
PicHeight = .Height
PicWidth = .Width
End With
'Set aChart = aWorkSheet.ChartObjects(1)
Set aChart = ActiveWorkbook.Charts.Add
ActiveWorkbook.ActiveChart.Location Where:=xlLocationAsObject, Name:=sCurrentSheet
iShapeCount = aWorkSheet.Shapes.Count
Set aShapeChart = aWorkSheet.Shapes(iShapeCount)
MyChart = aShapeChart.Name      '"Chart " & Str(aWorkSheet.Shapes.Count)

aShapeChart.Width = PicWidth
aShapeChart.Height = PicHeight


With aWorkSheet
aShape.Copy

With ActiveChart 'aChart
.ChartArea.Select
.Paste
End With

.ChartObjects(1).Chart.Export Filename:=sChartJpg, FilterName:="jpg", Interactive:=True
.ChartObjects(1).Chart.Export Filename:=sChartGif
.ChartObjects(1).Chart.Export Filename:=sCurrPath & ".png"
'Not working .ChartObjects(1).Chart.Export Filename:=sChartBmp, FilterName:="bmp"
aShapeChart.Cut
End With

Application.ScreenUpdating = True

MsgBox "Completed."
Exit Sub

End If

Next

MsgBox "Completed."
Exit Sub

ErrHandler:
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description & " " & Err.Source
Err.Clear   ' Clear the error.
End Sub

Comparison between 4Test and C language Keywords

Few months back, I was going through 4Test Language Reference (Silktest 5.01) PDF document. There I have seen the comparison of C Language and 4Test. Then I searched the same table in Silktest8.5 Help documentation. It is available under 4Test Reference -> About the 4Test Language -> Comparison of 4Test and C.

Comparison Table: 4Test and C language Keywords

Data type / Feature	C Language	4Test Script
Any type: Stores data of any type	No datatype available.	ANYTYPE aName
Array	int ai[10];	array [10] of integer ai integer ai[10] Arrays in 4Test can be dynamically resized.
Boolean: Stores either TRUE or FALSE	int b;	boolean b
Character	char c;	string c. 4Test has no seperate data type for single character.
Enumerated	enum COLOR{red, white, blue};	type COLOR is enum red white blue
Floating-point	float f; double d;	real f real d
Integer	int i; long, short, unsigned	integer i
List	Similar datatype is not available.	list of integer li. 4Test has dynamic lists.
Numeric	Similar datatype is not available.	number n.4Test NUMBER type stores either integers or floating point numbers.
Pointer	char *p;	4Test does not have pointers; however, data can be indirectly referenced using the @ operator.
Pointer to function	int (*func) ();	@(sFunc) ()
String	char s[5];	STRING s. 4Test strings are dynamically allocated; you do not need to declare their lengths.
Structure	struct Person { char name[8]; int age; }	type Person is record { string name integer age}
User-defined type	typedef struct Person PERSON_INFO;	type PERSON_INFO is Person
Type cast operator	(typename) expression	[typename] expression
Equality (==) operator differences	if ((i=5) == TRUE) --> This code compiles in C	if ((i=5) == TRUE) --> Ths code does not compile in 4Test:This difference is intentional. Because this construct can lead to unreadable code, 4Test does not allow it.

SilkTest - Convert String to List of String

Last month, my friend asked a silktest function similar to Split in QTP. Silktest does not have any built-in function. I thought to develop a function for this need. See the 4test code below:

4Test Code - Convert STRING contents as List of STRING

[+] List of STRING SplitToList (String sInput, String sDelimiter)
[ ] List of STRING lsReturn = {}
[ ] Integer iIndex =1
[ ] 
[+] while (GetField (sInput,sDelimiter,iIndex) != "")
[ ] ListAppend (lsReturn, GetField (sInput,sDelimiter,iIndex))
[ ] iIndex++
[ ] 
[ ] return lsReturn