ExcelでXMLもどきの編集をしたいと考えています。
XMLもどきのファイルの内容は以下のようになっています。
<rule parameter1="みかん" parameter2="とまと" parameter3="あずき" />
<rule parameter1="りんご" parameter3="だいず" parameter4="わかめ" />
<rule parameter1="もも" parameter2="きゅうり" parameter5="ミルク" />
これらの情報の中から、" " 内の文字列を抽出して、パラメータ毎に
分類して以下のように整理しようとしています。
parameter1 parameter2 parameter3 parameter4 parameter5
みかん とまと あずき
りんご だいず わかめ
もも きゅうり ミルク
関数やマクロを利用して、これらの作業を簡単に行う方法はないでしょうか?
お知恵をお貸しください。
No.3ベストアンサー
- 回答日時:
こんにちは。
ANo.1 さんの紹介されている XSL 変換機能を提供しているソフトウェアと Excel を組み合わせて、XML ファイルの更新運用をデザインされてはいかがでしょうか。
XSL 変換機能を提供しているソフトウェア例
・XMLEDITOR .NET
参考URL:http://www.xmleditor.jp/
No.2
- 回答日時:
昨日から正規表現にはまっていますので、その線で回答いたします。
Sub test()
Dim regEX As Variant
Dim Matches As Variant
Dim match As Variant
Dim matchString As String
Dim targetString As String
Dim subMatch As Object
Dim i As Long
targetString = readTextFile("C:\Documents and Settings\?????\My Documents\hoge.txt")
matchString = "(parameter\d)=""(\S*)"""
Set regEX = CreateObject("VBScript.RegExp")
regEX.MultiLine = True
regEX.Pattern = matchString
regEX.ignorecase = True
regEX.Global = True
Set Matches = regEX.Execute(targetString)
i = 1
For Each match In Matches
If match.submatches.Count > 0 Then
ActiveSheet.Cells(i, 1).Value = match.submatches.Item(0)
ActiveSheet.Cells(i, 2).Value = match.submatches.Item(1)
i = i + 1
End If
Next match
Set Matches = Nothing
Set regEX = Nothing
End Sub
Private Function readTextFile(fileName As String) As String
Dim FSO As Object
Dim buf As String
Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.getfile(fileName).OpenAsTextStream
buf = .ReadAll
readTextFile = buf
.Close
End With
Set FSO = Nothing
End Function
処理結果
....................A................B
1........parameter1..........みかん
2........parameter2..........とまと
3........parameter3..........あずき
4........parameter1..........りんご
5........parameter3..........だいず
6........parameter4..........わかめ
7........parameter1..........もも
8........parameter2..........きゅうり
9........parameter5..........ミルク
ご質問の形とは異なりますが、後はお好きな様に料理して下さい。
中味が知りたければ、VBA 正規表現 で検索して下さい。
No.1
- 回答日時:
xsltを使ってcsv的なテキストを吐き出してエクセルで読み込んだら良いんじゃない?
http://www.infoteria.com/jp/contents/xml-data/RE …
http://www.google.co.jp/search?hl=ja&lr=lang_ja& …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) VBA ふたつの同じ様式シートのセルをコピーしたい 2 2023/03/08 15:28
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- 情報・ワイドショー 「アインシュタイン 科学者たちの罪と勇気」 1 2022/04/12 19:09
- 国産車 エンジンスターター 2 2023/03/11 00:24
- 英語 I'd rather you stopped sending me ★a text★ ??? 1 2022/12/28 17:06
- 英語 me tooについて。 6 2023/05/28 11:04
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- アニメソング・ボーカロイド うる星やつら(1981)の曲「夢はLove me more」で使用されている楽器 2 2023/01/16 00:55
- PHP 入力した部分を表示させたまま(保持)するにはどうすれば良いでしょうか? 1 2023/01/25 11:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PCのウイルスについて
-
te amo とは… te amoってスペイ...
-
テキエロってどういう意味です...
-
Cachito (坊や)の歌詞の意味...
-
スペイン語で歯医者はdentista...
-
文法の事で・・・
-
There is no〜 There is not an...
-
スペイン語の意味を教えてくだ...
-
「太郎の家」をイタリア語とス...
-
和訳をお願いします。 Oi! Como...
-
そう言ってもらえてうれしい を...
-
no+名詞+whateverについて
-
スペイン語の意味は?
-
don't have~ と have not~...
-
トスティの歌曲「セレナータ」...
-
比較に表現の Nothing と No ot...
-
アップグレードのルールチェック
-
英文保証書の言葉の訳がわかり...
-
解説お願いします
-
フランス語の前置詞は、省略で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テキエロってどういう意味です...
-
te amo とは… te amoってスペイ...
-
スペイン語でわからないところ...
-
ブラジル/ポルトガル語で…
-
スペイン語 Es que... の文と...
-
PCのウイルスについて
-
このフランス語の和訳を教えて...
-
スペイン語で 私はあなたのこと...
-
Excel VBAにて、SpecialCells(x...
-
スペイン語が出来る方助けて下...
-
スペイン語のわかる方、教えて...
-
not+比較級と、no+比較級に共...
-
比較に表現の Nothing と No ot...
-
There is no〜 There is not an...
-
don't have~ と have not~...
-
トスティの歌曲「セレナータ」...
-
Cachito (坊や)の歌詞の意味...
-
ローマ字の書き方
-
A or B の意味
-
洋楽の歌詞についての質問(Gho...
おすすめ情報