How to read data from ini file without using fso

-
By using kernel32.dll method GetPrivateProfileString

Example: Say we have following INI file:

INI file:
[Environment]
Ashish=7.5
Jindal=2323
Sumit=2233
[gari]
ashi=32
sumi="ashsih jindasaksas vfd ashisdjvfusbasjbas

Code to read the file:
Dim a
sIniFile="C:\Documents and Settings\ashish.jindal\Desktop\EV.ini"
print zGen_GetIni(sIniFile, "Environment", "Ashish", sDefault)
print zGen_GetIni(sIniFile, "gari", "sumi", sDefault)


Function zGen_GetIni(sIniFile, sSection, sKey, sDefault)

    Dim iRet, sReturnString

    Extern.Declare micLong, "GetPrivateProfileString", "kernel32.dll", "GetPrivateProfileStringA", micString, micString, micString, micString + micByRef, micDWord, micString

    iRet = Extern.GetPrivateProfileString( sSection, sKey, sDefault, sReturnString, 256, sIniFile )

    If iRet > 0 Then
        zGen_GetIni = sReturnString
    Else
        zGen_GetIni = sDefault
    End If

End Function

Comments

  1. AnonymousDecember 23, 2010 at 3:46 AM

    thanks, needed that.

    ReplyDelete
  2. AnonymousJune 19, 2012 at 10:12 AM

    Nice function. Showing both the use of the kernal32.dll, and the functionality of reading an .ini file.

    Good Work.

    ReplyDelete
  3. AnonymousAugust 3, 2012 at 5:12 AM

    Any Idea how to read whole section data?

    ReplyDelete

Post a Comment

Popular posts from this blog

Test Batch Runner - Run QTP Scripts from xls file

-
Image
To run QTP Scripts from a xls file we need to use QTP AOM. First we have to write following code in a vbs file and save it anywhere on your system. Option Explicit Dim qtp  Set qtp =CreateObject("QuickTest.Application") qtp.Launch qtp.Visible=True Dim xl,bk,s Set xl=createobject("Excel.application") Set bk=xl.Workbooks.Open("D:\QTPScripts\Test Batch Runner\TestBatchRunner.xls") Set s=xl.ActiveWorkbook.Worksheets("Sheet1") Dim RowNo RowNo=2 While trim(lcase(s.cells(RowNo,1)))<>"end" qtp.Open s.cells RowNo,1 Dim qtpTest 'Assign the data table path  qtp.Test.Settings.Resources.DataTablePath = s.cells(RowNo,2) ' Results Dim qtpResults                         Set qtpResults = CreateObject("QuickTest.RunResultsOptions")  'run the test qtp.Test.Run  qtpResults,True RowNo=RowNo+1 Wend 'Release Objects Set qtp=n...
Read more

Selenium: db and excel data into maps

-
package learning; import java.io.File; import java.io.FileInputStream; import java.io.IOException; import java.sql.DriverManager; import java.sql.ResultSet; import java.sql.ResultSetMetaData; import java.sql.SQLException; import java.sql.Statement; import java.util.ArrayList; import java.util.HashMap; import java.util.Iterator; import java.util.List; import java.util.Map; import java.util.Map.Entry; import java.util.Set; import java.util.TreeMap; import org.apache.poi.ss.usermodel.Row; import org.apache.poi.ss.usermodel.Sheet; import org.apache.poi.ss.usermodel.Workbook; import org.apache.poi.xssf.usermodel.XSSFWorkbook; import com.codoid.products.exception.FilloException; import com.codoid.products.fillo.Connection; import com.codoid.products.fillo.Fillo; import com.codoid.products.fillo.Recordset; public class uploadFileinMap { @SuppressWarnings("resource") public static void main(String[] args) throws IOException, FilloException, ClassNotF...
Read more

Python: get entire workbook data cell by cell

-
import openpyxl book=openpyxl.load_workbook("D:\\Automation\\QEDGE\\WorkingProject\\PythonLearning\\Resources\\excel.xlsx") sName=book.sheetnames for s in sName:     sheet=book[s]     #sheet=book.get_sheet_by_name("Sheet1") #     cells=sheet['A1':'B5']     for row in sheet.__iter__(): #         print(row)         for cell in row:             print(cell.value) book.close()
Read more