请问如何解决"当随机文件中的字段包含有汉字，则此字段之后的字段内容无法显

LYHZM

请问如何解决"当随机文件中的字段包含有汉字，则此字段之后的字段内容无法显示在列表框中"这一问题?[br]请看下面的程序段落 ---------------------------------------------- '定义用户自定义类型 Private Type SubstationDataGather_Type
Substation_Name As String * 20
Substation_Alias As String * 20
HighTensionCable_SegmentNumber As Integer
SumRb As Double
SumXb As Double
End Type
Dim SubstationDataGather_DataArray() As SubstationDataGather_Type '在窗体初始化过程中把随机文件中的每一记录的各字段连接成一字符串，显示在列表框中 For RecordNumber = 1 To Lastrec

Get #1, RecordNumber, SubstationDataGather_DataArray(RecordNumber)
With SubstationDataGather_DataArray(RecordNumber)

SubstationDataGatherList = Format(.Substation_Name, "@@@@@@@@@@@@@@@@@@@@") & " " & _
Format(.Substation_Alias, "@@@@@@@@@@@@@@@@@@@@") & _
Format(.HighTensionCable_SegmentNumber, "##") & " " & _
Format(Val(.SumRb), "##.#####") & " " & _
Format(Val(.SumXb), "##.#####")

End With

'向列表框1中添加数据项， 即把数据显示在列表框1中
ListBox1.AddItem SubstationDataGatherList
Next RecordNumber ----------------------------------------------------------------------------------------------- 对于上面的程序段落，当随机文件中的某一记录的字段包含有汉字，则此字段之后的字段内容无法显示在列表框中，在列表框中显示如： “2631变电所 ” 而实际应显示为： “2631变电所 2631 1 2.3333 0.33333 ” 请问如何解决？

mccad

你文本文件中的行文字是怎样转换到自定义数据类型SubstationDataGather_Type中的呢？

LYHZM

谢谢mccad 老师的关注。文本文件中的行文字是通过以下程序转换到自定义数据类型SubstationDataGather_Type中的，恳请mccad 老师指正。 Dim Lastrec As Integer
Dim RecordNumber As Integer
Dim SubstationDataGatherList As String
On Error Resume Next

ReDim Preserve SubstationDataGather_DataArray(0)

'以随机访问方式打开文件
Open "f:\MyAutoCAD\MyVBA\SubstationDataGather.dat" For Random As #1 Len = Len(SubstationDataGather_DataArray(0))

Lastrec = LOF(1) / Len(SubstationDataGather_DataArray(0))

ReDim Preserve SubstationDataGather_DataArray(Lastrec)
'清空列表框1，为在其中显示全部记录做准备
ListBox1.Clear


'通过循环，把打开的硬盘上的文件"f:\MyAutoCAD\MyVBA\SubstationDataGather.dat"中的记录
'一一赋予SubstationDataGather_Array()数组，再把数组中的数据一一加入到列表框中1显示出来
For RecordNumber = 1 To Lastrec

Get #1, RecordNumber, SubstationDataGather_DataArray(RecordNumber)
With SubstationDataGather_DataArray(RecordNumber)

SubstationDataGatherList = Format(.Substation_Name, "@@@@@@@@@@@@@@@@@@@@") & " " & _
Format(.Substation_Alias, "@@@@@@@@@@@@@@@@@@@@") & _
Format(.HighTensionCable_SegmentNumber, "##") & " " & _
Format(Val(.SumRb), "##.#####") & " " & _
Format(Val(.SumXb), "##.#####")

End With

'向列表框1中添加数据项， 即把数据显示在列表框1中
ListBox1.AddItem SubstationDataGatherList
Next RecordNumber '关闭文件
Close #1

mccad

我这里没有你所说的问题，以下是我试验的代码：

2. Dim SubstationDataGather_DataArray As SubstationDataGather_Type
3. Private Sub CommandButton1_Click()
4.        Open "d:\Gather.dat" For Random As #1 Len = Len(SubstationDataGather_DataArray)
5.        Get #1, 1, SubstationDataGather_DataArray
6.        Close #1
7.        With SubstationDataGather_DataArray
8.                SubstationDataGatherList = Format(.Substation_Name, "@@@@@@@@@@@@@@@@@@@@") & "       " & _
9.                                                                      Format(.Substation_Alias, "@@@@@@@@@@@@@@@@@@@@") & _
10.                                                                      Format(.HighTensionCable_SegmentNumber, "##") & "                             " & _
11.                                                                      Format(Val(.SumRb), "##.#####") & "       " & _
12.                                                                      Format(Val(.SumXb), "##.#####")
13.        End With
14.        '向列表框1中添加数据项， 即把数据显示在列表框1中
15.        ListBox1.AddItem SubstationDataGatherList
16. End SubPrivate Sub UserForm_Initialize()
17.        Open "d:\Gather.dat" For Random As #1 Len = Len(SubstationDataGather_DataArray)
18.        With SubstationDataGather_DataArray
19.                .Substation_Name = "2631变电所"
20.                .Substation_Alias = "2631"
21.                .HighTensionCable_SegmentNumber = 1
22.                .SumRb = 2.3333
23.                .SumXb = 2.3333
24.        End With
25.        Put #1, 1, SubstationDataGather_DataArray
26.        Close #1
27. End Sub

Dim SubstationDataGather_DataArray As SubstationDataGather_Type Private Sub CommandButton1_Click()        Open "d:\Gather.dat" For Random As #1 Len = Len(SubstationDataGather_DataArray)        Get #1, 1, SubstationDataGather_DataArray        Close #1        With SubstationDataGather_DataArray                SubstationDataGatherList = Format(.Substation_Name, "@@@@@@@@@@@@@@@@@@@@") & "       " & _                                                                      Format(.Substation_Alias, "@@@@@@@@@@@@@@@@@@@@") & _                                                                      Format(.HighTensionCable_SegmentNumber, "##") & "                             " & _                                                                      Format(Val(.SumRb), "##.#####") & "       " & _                                                                      Format(Val(.SumXb), "##.#####")        End With        '向列表框1中添加数据项， 即把数据显示在列表框1中        ListBox1.AddItem SubstationDataGatherList End SubPrivate Sub UserForm_Initialize()        Open "d:\Gather.dat" For Random As #1 Len = Len(SubstationDataGather_DataArray)        With SubstationDataGather_DataArray                .Substation_Name = "2631变电所"                .Substation_Alias = "2631"                .HighTensionCable_SegmentNumber = 1                .SumRb = 2.3333                .SumXb = 2.3333        End With        Put #1, 1, SubstationDataGather_DataArray        Close #1 End Sub

LYHZM

mccad 老师，当我使用“逐语句”的方法运行我上面列出的程序时，在执行到包含有汉字的记录时，我把光标放在“ListBox1.AddItem SubstationDataGatherList”语句行的“SubstationDataGatherList”字符上，则此时能够出现如“2631变电所 2631 1 2.3333 0.33333 ”这样的正确提示值，但在列表框中就出现上面所述的错误显示，请问mccad 老师如何解决？