Database Search

TechHome

	Samples from Users
	Sort

• 3-Dimensional Array
• Accessing Multidimensional Arrays
• Add a Row to a Two Dimensional Array
• Array and Lists - Split and Join
• Array copy problem
• Array Size and Making a Binary Copy
• ArrayFileGet VMalloc Error
• ArrayFileGetCsv - How to detect invalid CSV line
• ArrayInsert Examples
• Arrayize and Dimensioned Arrays
• ArrayRedim Issue
• Arrays for the Layman
• Arrays vs Item Lists Speed
• ArraySearch Duplicate Values
• ArrInitialize NULL Fails
• Convert an Array to a Delimited List
• Convert SafeArray into a WIL Array
• Convert String to an Array
• Delete a Member of an Array
• DirInfotoArray Sort
• File Names in the Shell Like Sort Order
• Filling an Array from a column in a DB
• ForEach in Array Trick
• Is it an Array
• Is there an AskArrayList
• ObjectType Error 1690 Ole Unable to Perform Enumeration of the Specified Object
• PtrPersistent and ArrInitialize Issue
• Remove a Line from a File Using Arrays
• Resize an Array
• Reverse Array
• Searching an array for data
• Secondary Sort on Columns
• Sort Files by Modified Date
• Transpose Array
• Variable Table to Array
• VMalloc Error - VirtualAlloc Failed 487
• Why use arrays

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

ArrayInsert Examples

 Keywords: ArrayInsert One Two 1 2 Dimension Array Insert Paste Append Row Column Element

;***************************************************************************
;**
;**   Insert an Element into a one Dimensional Array
;**
;***************************************************************************
strList = 'a b c A B C 1 0 -1'
value = 'D' ; (uppercase letter D)
; Create an array to Insert data
arrList = Arrayize( strList, ' ' )
; insert value in the array
result = ArrayInsert(arrList,6,1,value)
strNewList = ArrayToStr(arrList)
; Display results
Pause( 'ArrayInsert of value: ' : value, strNewList)
Exit

;***************************************************************************
;**
;**   Insert a Row into a two Dimensional Array
;**
;***************************************************************************
; Dynamically create a two dimensional array from CSV data
; using the FilePut & ArrayFilePutCSV trick
data = 'A0,A1,A2,A3':@LF:'B0,B1,B2,B3':@LF:'D0,D1,D2,D3':@LF:'E0,E1,E2,E3' ; missing row C
tmpfile = "tempfile.tmp"
FilePut( tmpfile, data )
arrA = ArrayFileGetCSV( tmpfile, 1)
FileDelete( tmpfile )

; Now insert a blank row into arrA
row = 2 ;third row
rowflag = 1
initval = ""
ArrayInsert( arrA, row, rowflag, initval )

; Define row data in an seperate 1 - dimensional array
newdata = 'C0,C1,C2,C3'
arrB = Arrayize( newdata, ',' )

; Insert arrB data into arrA
For element = 0 To ArrInfo( arrB, 1 )-1
    arrA[row,element] = arrB[element]
Next
; Display Results
MyDialogFormat=`WWWDLGED,6.2`
MyDialogCaption=`ArrayInsert Row`
MyDialogX=002
MyDialogY=059
MyDialogWidth=438
MyDialogHeight=195
MyDialogNumControls=003
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`157,165,036,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,10,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`217,165,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`013,011,402,142,REPORTVIEW,"ReportView_1",arrA,DEFAULT,DEFAULT,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("MyDialog")
Exit

;***************************************************************************
;**
;**   Insert a column into a two Dimensional Array
;**
;***************************************************************************
; Dynamically create a two dimensional array from CSV data
; using the FilePut & ArrayFilePutCSV trick
data = 'A0,A1,A3':@LF:'B0,B1,B3':@LF:'C0,C1,C3':@LF:'D0,D1,D3' ; missing column 2
tmpfile = "tempfile.tmp"
FilePut( tmpfile, data )
arrA = ArrayFileGetCSV( tmpfile, 1)
FileDelete( tmpfile )

; Now insert a blank column into arrA
col = 2 ;third column
colflag = 2
initval = ""
ArrayInsert( arrA, col, colflag, initval )

; Define column data in an seperate 1 - dimensional array
newdata = 'A2,B2,C2,D2'
arrB = Arrayize(newdata, ',')
; Insert arrB data into arrA
For element = 0 To ArrInfo( arrB, 1 )-1
    arrA[element,col] = arrB[element]
Next

; Display Results
MyDialogFormat=`WWWDLGED,6.2`
MyDialogCaption=`ArrayInsert Row`
MyDialogX=002
MyDialogY=059
MyDialogWidth=438
MyDialogHeight=195
MyDialogNumControls=003
MyDialogProcedure=`DEFAULT`
MyDialogFont=`DEFAULT`
MyDialogTextColor=`DEFAULT`
MyDialogBackground=`DEFAULT,DEFAULT`
MyDialogConfig=0
MyDialog001=`157,165,036,012,PUSHBUTTON,"PushButton_OK",DEFAULT,"OK",1,10,32,DEFAULT,DEFAULT,DEFAULT`
MyDialog002=`217,165,036,012,PUSHBUTTON,"PushButton_Cancel",DEFAULT,"Cancel",0,20,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
MyDialog003=`013,011,402,142,REPORTVIEW,"ReportView_1",arrA,DEFAULT,DEFAULT,30,DEFAULT,DEFAULT,DEFAULT,DEFAULT`
ButtonPushed=Dialog("MyDialog")
Exit

Article ID:   W17656

Filename:   ArrayInsert Examples.txt

File Created: 2013:05:24:11:38:34

Last Updated: 2013:05:24:11:38:34