VBA reflection - CSV FILE

[el_jm]

Hello I am trying to insert data stored in a csv file in IBM3270 reflection.

My csv as only 2 column, this is no a complex loop, but I have a problem
in the first part of the code, i guess in fso open text file ...
Any help?
________

Sub i_cOMPO()

' i_cOMPO macro
' Macro created 26/11/2014


Dim Title, Default, fileloc, strLine, arrValues, fso, inputFileStream
Dim line As String
With Session

fileloc = "H:\DATA\COMPO.csv" ' Set default

Const conStrSeparator = ";"

Set fso = CreateObject("Scripting.FileSystemObject")

Set inputFileStream = fspenTextFile("H:\DATA\COMPO.csv", 1, False, 0)
Do Until inputFileStream.AtEndOfStream
strLine = inputFileStream.ReadLine
arrValues = Split(strLine, conStrSeparator)

.MoveCursor 3, 58 'cons invcompo

.TransmitTerminalKey rcIBMEraseEOFKey

.TransmitANSI arrValues(0)
.TransmitTerminalKey rcIBMPf1Key
.WaitForEvent rcKbdEnabled, "0", "1", 58, 8

.MoveCursor 8, 2 'donde tiene que entrar la X
.TransmitTerminalKey rcIBMEraseEOFKey
.TransmitTerminalKey rcIBMXKey
'.Wait 1
.MoveCursor 6, 76 'Campo de la marca
.TransmitTerminalKey rcIBMEraseEOFKey
.TransmitANSI arrValues(1)

.TransmitTerminalKey rcIBMPf3Key

'.Wait 1

Loop

inputFileStream.Close

End With

End Sub

 

[Jon von der Heyden]

Hi

I don't know IBM3270. I don't either know what "session" is, where it has been declared and where the object has been set. However I suspect that this line:

Set inputFileStream = fso.OpenTextFile("H:\DATA\COMPO.csv", 1, False, 0)

Is not the issue. It looks fine to me.

What error do you get and what line does it break on?

 

[CharlesChuckieCharles]

Your file code works fine

So its the file called "H:\DATA\COMPO.csv" ?

and is it delimited by ";" ?

(maybe its still open from a previous crash)?

 

[el_jm]

Your file code works fine

So its the file called "H:\DATA\COMPO.csv" ?

and is it delimited by ";" ?

(maybe its still open from a previous crash)?

Charles, yes my file is a .CSV, stored in H: unit and ... no, there are actually not such ( separator.
No crash. I will run this code again tomorrow...

 

[el_jm]

I forgot to mention that my CSV file does not contain decimal values and is excusively composed by hexadecimal values.

 

[el_jm]

I forgot to mention that my CSV file does not contain decimal values and is excusively composed by hexadecimal values.

Allrigt, problem was Path related. My code works fine.