用VB做一个表格显示基金的买卖价格

来源：百度知道 编辑：UC知道 时间：2024/06/28 02:42:59
读取TXT文本数据（格式如下）

英镑|1357.02|1313.42|1367.90
港币|87.77|87.07|88.11
美元|684.73|679.24|687.47
瑞士法郎|670.55|649.01|675.93
日元|6429.17|6222.61|6480.79
加拿大元|676.93|655.18|682.35
澳大利亚元|657.46|636.34|662.74
欧元|1077.32|1042.71|1085.96

请高手指点一下怎么做 我是初学者
特别是怎样判别竖杠隔开的每个数据
如何把他们显示到表格的指定单元格里面
能更改显示表格的格式框的颜色和背景色还有字体颜色吗
我有很多条基金数据 能达到循环显示的效果吗？

'添加一个控件listview，把你需要显示的内容保存到一个记事本内，格式如上，复制下面的代码：
listview我不太会用，仅供参考！！
Private Sub Form_Load()
'设置表格表头
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "名称", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "价格1", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "价格2", ListView1.Width / 4
ListView1.ColumnHeaders.Add , , "价格3", ListView1.Width / 4
'填充数据
Dim x, y, z, i, fn
i = 0
fn = FreeFile
Open "c:\1.txt" For Input As fn'这里的c:\1.txt是保存的数据资料
Do While Not EOF(fn)
Line Input #fn, x
y = Split(x, "|")
ListView1.ListItems.Add , , y(0)
ListView1.ListItems.Item(i + 1).SubItems(1) = y(1)
ListView1.ListItems.Item(i + 1).SubItems(2) = y(2)
ListView1.ListItems.Item(i + 1).SubItems(3) = y(3)
i = i + 1
Loop
Close fn
End Sub

判别用竖杠隔开的每个数据 使用split函数即可
如：
dim a() as st