說明
取得在依據 INI 檔案格示規範內，某項目以逗號分隔之資料
本函數之引數列表
| 引數 |
型態 |
位元組 |
選項 |
預設值 |
說明 |
| lpAppName |
Character*(*) |
- |
必須 |
(無) |
節區名 |
| lpKeyName |
Character*(*) |
- |
必須 |
(無) |
鍵名 |
| lpFileName |
Character*(*) |
- |
必須 |
(無) |
包含路徑的完整檔名 |
| arrData |
Real, Allocatable |
- |
必須 |
(無) |
[in/out]動態宣告之一維實數陣列。 |
傳回值
目前未使用傳回值，透過引數回傳
範例
Program Main
Use modProFile
Integer :: i
Real, Allocatable :: arrData(:)
Write(*,*) GetPrivateProfileRealArray('測試1', 'Item1', 'D:\TLCheng\Life\FOR\ShellEx\測試1.txt', arrData)
Do i = LBound(arrData, DIM = 1), UBound(arrData, DIM = 1)
Write(*,*) i, arrData(i)
End Do
Write(*,*) GetPrivateProfileRealArray('測試2', 'Item1', 'D:\TLCheng\Life\FOR\ShellEx\測試1.txt', arrData)
Do i = LBound(arrData, DIM = 1), UBound(arrData, DIM = 1)
Write(*,*) i, arrData(i)
End Do
End Program
[測試1]
Item1=14.8071,18.4702,17.3166,15.7192,17.6477,19.2346,21.4977,21.3108,25.6508,35.2408,20.5954,24.0023
[測試2]
Item1=8.5323,7.8246,9.7608,8.4469,12.04,9.8231,11.9469,14.6146,12.2108,12.8877,15.12,17.0177,14.8071,18.4702,17.3166,15.7192,17.6477,19.2346,21.4977,21.3108,25.6508,35.2408,20.5954,24.0023,28.6377,24.5623,16.7846,25.6592,16.7846,15.1977,18.6823,13.51,14.2723,12.2192,10.9431,14.56
[lpAppName]
lpKeyName=string
基本條件
Microsoft PowerStation 4.0 以後版本 | 需同時引用modStrTools模組 | ProFile.f90
請參閱
modProFile 函式庫 | SplitToReal
