1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
| Dim RANK As Integer = 1
Dim DATA_ARRAY_LENGTH As Integer = 10
Dim fileId As H5FileId
fileId = H5F.create("F:\SRV_MDOC\Informatique\HDF5\myVBFile.h5", H5F.CreateMode.ACC_TRUNC)
Dim groupId As H5GroupId
groupId = H5G.create(fileId, "/vbGroup")
Dim dims(RANK) As Long
dims(0) = DATA_ARRAY_LENGTH
Dim dset_data(DATA_ARRAY_LENGTH - 1) As Double
Dim i
For i = 0 To DATA_ARRAY_LENGTH - 1
dset_data(i) = i
Next i
Dim spaceId As H5DataSpaceId
spaceId = H5S.create_simple(RANK, dims)
Dim typeId As H5DataTypeId
typeId = H5T.copy(H5T.H5Type.NATIVE_LDOUBLE)
Dim dataSetId As H5DataSetId
dataSetId = H5D.create(fileId, "/vbExample", typeId, spaceId)
Dim h5Data As New H5Array(Of Double)(dset_data)
H5D.write(dataSetId, typeId, h5Data)
Dim readDataBack(DATA_ARRAY_LENGTH - 1) As Double
Dim h5DataBack As New H5Array(Of Double)(readDataBack)
H5D.read(dataSetId, typeId, h5DataBack)
For i = 0 To DATA_ARRAY_LENGTH - 1
Console.WriteLine("read " & i & " " & readDataBack(i))
Next
'
' Close all the open resources.
H5D.close(dataSetId)
H5S.close(spaceId)
H5T.close(typeId)
H5G.close(groupId)
H5F.close(fileId)
Console.WriteLine("Processing complete!")
Console.ReadLine() |
