I have a VB snippet that i ran in excel under Windows that i need to convert to apple script. I have been looking around at some of the scripting tutorials and excel specific tutorials and have so far been unable to reproduce this code. I will post the VB code below and will be very greatful for any help or pointers in the right direction.
Public Sub ScriptMaker()
Const delimiter As String = ";"
Dim myRecord As Range
Dim myField As Range
Dim nFileNum As Long
Dim sOut As String
Dim aArray() As String
nFileNum = FreeFile
Open "c:\secfilter.txt" For Output As #1
For Each myRecord In Range("A1:A" & _
Range("A" & Rows.Count).End(xlUp).Row)
With myRecord
For Each myField In Range(.Cells, _
Cells(.Row, Columns.Count).End(xlToLeft))
sOut = sOut & delimiter & Trim(myField.Text)
Next myField
aArray = Split(Trim(Mid(sOut, 2)), ";")
'###alter dblogin###
'Print #1, "APPLY SECURITY FILTER '" & LCase(aArray(1)) & "' TO USER '" & UCase(aArray(0)) & "' ON PROJECT 'Continuum';"
sOut = Empty
End With
Next myRecord
Close #1
End Sub
Thanks in advance for the help!
Hank Spencer