一个简单的问题！！！！

[happy_gambler]

我有一段文字如下：

参 考 文 献

1 S Fields,O Song.A novel genetic system to detect protein- protein
interactions.Nature,1989, 340:245~246
2 R Brent,R L F Jr.Understanding gene and allele function withtwo-hyb
rid methods.Annu Rev Genet,1997, 31:663~704
3 Gyuris J,Golemis E,Chertkov H,Brent R.Cdi1,a human G1 and S phase pr
otein phosphatase that associates with Cdk2.Cell,1993, 75(4):791~803
4 Silver PA,Brent R,Ptashne M.DNA binding is not sufficient for nucl
ear localization of regulatory proteins in Saccharomycescerevisiae.Mol
Cell Biol,1986, 6(12):4763~4766

我想将参考文献分条存进一个数组或者加入到listview中，如何实现？

[leskey]

我不是很明白你的问题.

[luckywb]

上面一段话中有代标号的4条文献，我想将他们分开存进数组，例如将

1 S Fields,O Song.A novel genetic system to detect protein- protein
interactions.Nature,1989, 340:245~246

存入a（0），将

2 R Brent,R L F Jr.Understanding gene and allele function withtwo-hyb
rid methods.Annu Rev Genet,1997, 31:663~704

存入a（1）

[chenwhenlong]

Private Sub SaveInArray(sText as String)
dim sArr() as String
if Left(sText,2)=vbCrLf then sText=Mid$(sText,3)
if Right(sText,2)<>vbCrlf then sText=sText & vbCrLf
Do While InStr(1,sText,vbCrLf)>0
On Error Resume Next
Redim Preserve sArr(UBound(sArr)+1) As String
If Err then ReDim sArr(1) as String
On Error Goto 0
sArr(UBound(sArr)-1)=Mid$(sText,1,InStr(1,sText,vbCrLf)-1)
sText=Mid$(sText,InStr(1,sText,vbCrLF)+2)
Loop
End Sub