0

次のようなテキストファイルが含まれています。

03/02/2013 09:47:29 AM||User Name||Open||Normal||Path
03/02/2013 09:47:45 AM||User Name||Close||Normal||Path
03/02/2013 09:47:52 AM||User Name||Open||Normal||Path
03/02/2013 09:47:58 AM||User Name||Save||Normal||Path
03/02/2013 09:47:59 AM||User Name||Close||Normal||Path
03/02/2013 09:48:05 AM||User Name||Open||Normal||Path
03/02/2013 09:48:06 AM||User Name||Close||Normal||Path
03/02/2013 09:48:12 AM||User Name||Open||Normal||Path
03/02/2013 09:55:33 AM||User Name||Save||Normal||Path
03/02/2013 09:55:34 AM||User Name||Close||Normal||Path
03/02/2013 09:55:40 AM||User Name||Open||Normal||Path

ExcelでVBAからこの行を読み取り、区切り文字「||」で分割した後、日付のGetDayを取得すると 日は「2」ですが、2は実際には月です。

日が3、月が2のこの日付を取得するにはどうすればよいですか?

4

1 に答える 1

2

以下の例のようなもので、正しい方向に進むはずです。

Dim row_string as String    'this is a row of text to be manipulated.

Dim sDay as String, sMonth as String, sYear as String
Dim sDateTime as String, sDate as String
Dim rowArr as Variant, elements as Variant, dateElements as Variant

'split the initial row into elements
rowArr = Split(row_string,"||")

'first element is the datetime string
sDateTime = rowArr(0)

'split the datetime string into individual parts
elements = Split(sDateTime," ")

'grab the date element
sDate = elements(0)

'split the date element up into parts
dateElements = Split(sDate,"/")


'Assign date elements to individual variables
sDay = dateElements(0)
sMonth = dateElements(1)
sYear = dateElements(2)


If sDay = "03" And sMonth = "02" Then

'do something here............

End If

または、本当に単純なアプローチを選択して実行することもできると思います..

Dim row_string as String

'check the left 5 characters of the entire string
If Left(row_string,5) = "03/02" Then

'do something here...........

End If
于 2013-02-24T11:34:08.427 に答える