10/09/08 17:29:41 .net
外部データへのリンクだと文字化けするので、ソースから読み込みしてシートに書き込みたいのだけど
正規表現で株主優待情報だけ抽出するには、この先どうしたらいいですか？
Sub FileAccess
Dim oFileAccess As Object
Dim sURL As String
Dim oInputStream As Object
Dim vData As Variant
Dim sLine As String, sDataLine As String
sURL = "URLﾘﾝｸ(biz.yahoo.co.jp)"
oFileAccess = createUnoService("com.sun.star.ucb.SimpleFileAccess")
oInputStream = CreateUnoService("com.sun.star.io.TextInputStream")
oInputStream.setEncoding( "EUC-JP" )
If oFileAccess.exists(sUrl) Then
vData = oFileAccess.openFileRead(sUrl)
oInputStream.setInputStream(vData)
While NOT oInputStream.isEOF()
sLine = oInputStream.readLine()
sDataLine = sDataLine & sLine & Chr(10)
WEnd
oInputStream.closeInput()
End if
txt(sDataLine)
End Sub