テキスト(.TXT)データを項目ごとにバイト単位で項目分けをしたいのですが。
具体的には、得意先から受けた発注データがテキストに落ちていまして、このデータをファイルレイアウトに合わせて、項目ごとに分けCSV等にしエクセルに取り込みたいのです。
テキストエディタ等でデータを表示させ、マウスクリックで項目を分けて行くようなソフト又はツールをご存知の方いらっしゃいませんか?
よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

お使いのPCにアクセスが入っていれば、アクセスのウィザードが使えますが・・・



参考までに、

「テーブル」で「新規作成」→「テーブルのインポート」を選択。
ダイアログの「ファイルの種類」を「テキストファイル」に換えて、
対象テキストを選択。
ウィザード画面で、固定長を選択して、各項目の長さを設定して取込。
取込後、取り込んだテーブルを選択して、
「テキスト形式」で「エクスポート」。

こんな感じですが・・・
    • good
    • 0
この回答へのお礼

ご回答ありがとうございます。早速アクセスで試して見ましたところ、思い通りにデータを項目分け出来ました。

お礼日時:2001/09/20 09:36

bluesky7さん、こんにちは。


ご質問の内容ですが、そのテキストをそのままEXCELにて
読み込まれては如何ですか。
EXCELを起動し、[ファイル]→[開く]→ファイル選択ダイアログ
ボックスが表示されます。
そこで、そのファイルを指定して、属性をテキストファイルにて
開けば、ウィザードリィが表示されます。
その中にどこで、区切るかの指定ができます。(マウスクリックで可)
これで、お望みの事が出来ると思います。
しかし、下記の点には、注意が必要です。
1.レコードが約65,000以上越える場合(EXCELの最大行数を
  越える場合です、詳細のレコード数は、開いて確認して下さい。)
2.テキストの中に項目分けした時のその項目に0が先頭につく場合
  電話番号等の場合には、頭の0がサプレスされる可能性があります。
3.そのテキストデータの中に+-等が入っている場合には、文字として
  読み込みます。
  (後で修正加工すればなんとでもなりますが…)

この内容で、ご質問への満足いく回答になりますか?。
    • good
    • 0
この回答へのお礼

ありがとうございました。

お礼日時:2001/09/20 09:33

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

Q意味の違い(記入事項、記入項目、記載事項、記載項目)について

意味の違い(記入事項、記入項目、記載事項、記載項目)について

僕が無知なため日本語に詳しい方がおりましたら教えて下さい。

以下の日本語の意味の違いは何でしょうか?

・記入事項
・記入項目
・記載事項
・記載項目


よろしくお願いいたします。

失礼いたします。

Aベストアンサー

・記入事項
記入する事柄

・記入項目
何を記入するか知らしめるタイトル

・記載事項
書類などにすでに書かれている事柄

・記載項目
書類等にすでに書かれいている事柄のタイトル

Q1つのセルに入っている数値を項目ごとに2つのセルに分ける方法

いつもお世話様になっております。

たとえばA1のセルに 「【分類1】ABCD【分類2】1234」 と入っているものを
A1に「ABCD」、B1に「1234」とセルを分けて入れるようにするには
どのような関数を使えばよろしいのでしょうか?

なお【分類1】【分類2】それぞれの文字数は一定ではありません。

また【分類1】【分類2】は消えた状態でセルを分けられたらありがたいです。

どうぞよろしくお願い致します。

Aベストアンサー

A1のセルに入っているものを「A1」にというのは誤りとして
B1のセル=MID(A1,LEN("【分類1】")+1,SEARCH("【分類2】",A1,1)-LEN("【分類1】")-1)
C1のセル=MID(A1,SEARCH("【分類2】",A1,1)+LEN("【分類2】"),255)

消えた状態の意味が不明ですが、見せたくないなら
文字色を白にするなり
列単位で列を非表示にすればよいのではないでしょうか。

QOCNモバイルは申し込む際に必要事項の項目に名前をカタカナでお願いしますという項目があって本名を記入

OCNモバイルは申し込む際に必要事項の項目に名前をカタカナでお願いしますという項目があって本名を記入したらカタカナだけがエラーになりましたありえません非常に困っております

Aベストアンサー

半角になってるのでしょう

Q1つのセルに入ってる中身を項目ごとに分けてCOUNTIFで下までコピーする方法?

シート1のC列に↓のようなセルがあります。1つのセルに収まってます。
12レースまであります。1レース分だけ貼り付けました。

11/11(土) 3回 福島 7日目競馬新聞を見る
1R 未勝利
2歳 ○混□指(馬齢) 芝1800m 14頭 発走:9:50
本賞金:500、200、130、75、50万円

馬名性齢負担騎手
重量
アルナスライン牡255柴山雄一
エドノダンス牡255石橋脩
グラントリアノン牡255藤岡佑介
クリノオンディーヌ牝254武士沢友
サンキストゴールド牡255田嶋翔
タイセイディーバ牝253☆鮫島良太
チアズジョイ牡255中舘英二
バンブーソクラテス牡255佐藤哲三
フィジカル牡252▲千葉直人
プライドイズハート牡255福永祐一
マイネルグラナーテ牡255スボリッ
マイネルテアトロン牡252▲佐藤聖也
リキアイアチーブ牝254西田雄一
リュウシャルマン牝253☆吉田隼人



J3=IF(COUNTIF(C1,"*競馬"),LEFT(C1,2),J2)
これを↑こういうので
日付=11/11(土)
場所=福島
わけてJ列K列にそれぞれ表示させて↓までコピーしたいのです。

あと
レース数=1R
距離=芝1800m
頭数=14頭
レース名=未勝



以上の項目もそれぞれで1列ずつ使って分けて下までコピーしたいのですがどうすればよいでしょうか?
http://oshiete1.goo.ne.jp/kotaeru.php3?q=2046491
ここで質問して回答いただいたのと同じようなことをしたいのですが、やり方が分かりません。

各項目は半角で空いています。
よろしくお願いします。

シート1のC列に↓のようなセルがあります。1つのセルに収まってます。
12レースまであります。1レース分だけ貼り付けました。

11/11(土) 3回 福島 7日目競馬新聞を見る
1R 未勝利
2歳 ○混□指(馬齢) 芝1800m 14頭 発走:9:50
本賞金:500、200、130、75、50万円

馬名性齢負担騎手
重量
アルナスライン牡255柴山雄一
エドノダンス牡255石橋脩
グラントリアノン牡255藤岡佑介
クリノオンディーヌ牝254武士沢友
サンキストゴールド牡255田嶋翔
タイセイディーバ牝253☆鮫島良太
チアズジョイ牡...続きを読む

Aベストアンサー

補足拝見しました。レース毎の行数は等間隔ではなく、各馬の横にもその馬の情報が出ていてほしいのですね。

全部マクロの中に仕込んでしまいました。No.1の回答の手順で貼り付けたマクロを、以下のものに入れ替えてください。

Function GetInfo(R As Integer, S As String) As String
  Dim CurrentInfo As Range, Info As Range
  If Cells(R, 3) = "" Then
    GetInfo = ""
    Exit Function
  End If
  
  Set CurrentInfo = Range("C1")
  For Each Info In Range("C1", Range("C65535").End(xlUp))
    If Info.Value Like "*/*(*)*" Then
      If Info.Row > R Then
        Exit For
      Else
        Set CurrentInfo = Info
      End If
    End If
  Next
  
  Dim ItemList1, ItemList2, Itemlist3
  ItemList1 = Split(CurrentInfo.Value, " ")
  ItemList2 = Split(CurrentInfo.Offset(1, 0).Value, " ")
  Itemlist3 = Split(CurrentInfo.Offset(2, 0).Value, " ")
  
  Select Case S
    Case "日付"
      GetInfo = ItemList1(0)
    Case "場所"
      GetInfo = ItemList1(2)
    Case "レース数"
      GetInfo = ItemList2(0)
    Case "距離"
      GetInfo = Itemlist3(2)
    Case "頭数"
      GetInfo = Itemlist3(3)
    Case "レース名"
      GetInfo = ItemList2(1)
    Case Else
      GetInfo = "???"
  End Select
End Function

そして、J1~O1に以下のように入力してください。

J1 =GetInfo(ROW(),"日付")
K1 =GetInfo(ROW(),"場所")
L1 =GetInfo(ROW(),"レース数")
M1 =GetInfo(ROW(),"距離")
N1 =GetInfo(ROW(),"頭数")
O1 =GetInfo(ROW(),"レース名")

そしてJ1からO1を選択し、そのまま下へコピーしてください。
これでうまくいかないでしょうか?

補足拝見しました。レース毎の行数は等間隔ではなく、各馬の横にもその馬の情報が出ていてほしいのですね。

全部マクロの中に仕込んでしまいました。No.1の回答の手順で貼り付けたマクロを、以下のものに入れ替えてください。

Function GetInfo(R As Integer, S As String) As String
  Dim CurrentInfo As Range, Info As Range
  If Cells(R, 3) = "" Then
    GetInfo = ""
    Exit Function
  End If
  
  Set CurrentInfo = Range("C1")
  For Each Info In Range("C1", ...続きを読む

Q店舗賃貸 重要事項説明にない項目は重要事項説明違反にならないのですか? 新築の店舗を借りて、契約も

店舗賃貸 重要事項説明にない項目は重要事項説明違反にならないのですか?

新築の店舗を借りて、契約も契約金の支払いも終わっています。工場として借りたのですが電気の動力電源(低圧)が近くに来ておらず、電力会社に聞いたら現地調査から申請して使えるようになるまで2〜3カ月かかると言われました。

いつからでも使えるよう電気線の配線工事も全て終わっていて、今月から家賃も発生するのに電気が来ていないので稼働できません。

重要事項説明書の電気の欄には100ボルト単層、200ボルト単層としか書かれていませんが、不動産屋も工場に使うと知っているのに動力が引けない場所、とは聞いていません。

電気の欄に動力という事が書いてなければ、書いていないことは責任はないという事なのでしょうか?

これは重要事項説明違反にはならないのですか?

詳しい方がいたら、教えて下さい。

Aベストアンサー

>店舗賃貸 重要事項説明にない項目は重要事項説明違反にならないのですか?
なりません。

宅地建物取引業法
第35条  宅地建物取引業者は、宅地若しくは建物の売買、交換若しくは貸借の相手方若しくは代理を依頼した者又は宅地建物取引業者が行う媒介に係る売買、交換若しくは貸借の各当事者(以下「宅地建物取引業者の相手方等」という。)に対して、その者が取得し、又は借りようとしている宅地又は建物に関し、その売買、交換又は貸借の契約が成立するまでの間に、宅地建物取引士をして、少なくとも次に掲げる事項について、これらの事項を記載した書面(第五号において図面を必要とするときは、図面)を交付して説明をさせなければならない。

4  飲用水、電気及びガスの供給並びに排水のための施設の整備の状況(これらの施設が整備されていない場合においては、その整備の見通し及びその整備についての特別の負担に関する事項)

現況を書けば良いのでこの説明で十分です。
工場だから必ず動力線や高圧線の引き込みがいる物ではありません。
必要と思い記述がないのなら電力会社や不動産屋に確認するのが常識のある大人の行動でしょう。

>店舗賃貸 重要事項説明にない項目は重要事項説明違反にならないのですか?
なりません。

宅地建物取引業法
第35条  宅地建物取引業者は、宅地若しくは建物の売買、交換若しくは貸借の相手方若しくは代理を依頼した者又は宅地建物取引業者が行う媒介に係る売買、交換若しくは貸借の各当事者(以下「宅地建物取引業者の相手方等」という。)に対して、その者が取得し、又は借りようとしている宅地又は建物に関し、その売買、交換又は貸借の契約が成立するまでの間に、宅地建物取引士をして、少なくとも次に掲げる...続きを読む

QEXCELにて同じ項目を持つ2種類のデータのうち、ある項目が合致するデータを抽出する方法は?

質問タイトルが判りにくくて申し訳ありません。

質問内容は以下の通りです。
例えば、
1.自社が納品先に納品したデータ(項目としては、伝票番号、商品コード、納品数量)

2.納品先側で作成された自社から納品された商品の受領データ(項目は1と同じです)

上記の2つEXCELのデータがあるとします。

この2つのデータを見比べて納品数量の食い違いを発見したいのです。
(自社からは2個納品したはずだが、納品先側では1個しか受領していないといったものです)

この2つのデータを同じブック(シート)に貼り付けた上で伝票番号及び商品コードが合致したデータを抽出し、
なおかつ数量が違っているものを最終的に抽出したいのですが、マクロを使用せず、関数のみで抽出できる
レベルでしょうか?

詳しい操作方法の説明までは大変でしたら『こんな関数を使えばどうですか?』というような関数の名前だけでも
アドバイスしていただければ幸いです。

なお使用ソフトはEXCEL2003です。よろしくお願い致します。

Aベストアンサー

こんばんは!
No.1さんとまったく同様の回答で、重複するかと思いますが、
ExcelでSheetを作成してしまいましたので、
回答させていただきます。

↓の画像で上側が自社Sheet(Sheet1)で、下側が納品先Sheet(Sheet2)になります。

両Sheet共、D列を作業用の列とさせてもらい、
D2セルに
=CONCATENATE(A3,B3,C3)
という数式を入れ、フィルハンドルの(+)マークでダブルクリック
またはオートフィルで下へコピーします。

Sheet1のE3セルに
=IF(OR(D3="",COUNTIF(Sheet2!$D$3:$D$1000,D3)),"","×")
という数式を入れ、これまたフィルハンドルでダブルクリックかオートフィルで下へコピーします。

これでSheet1・2でデータが違う行だけに「×」が表示されます。

以上、参考になれば幸いです。m(__)m

Q経営事項審査の業務災害の項目について、確認しているんでしょうか?

いつもお世話になっております。
このたび建設業の経営事項審査審査を受けるにあたって申請書等作成したのですが、その中で「その他の審査項目」の工事の安全成績のところで、前年負傷者が1人出てしまっていたため、それを記入したのですが、ここで?と思うことがありました。弊社の属する地域が出している経営審査の際に提示する確認資料等一覧の中に、このことを証明するような書類等はまったく入っていませんでした。つまり、逆に言えばここで0と(嘘を)書いても、確認していないのだから、そのまま通過してしまうということなんでしょうか?特にこの業務災害は2年間影響しますので、入札参加資格申請を考えると大事な項目だと思うのですが、、、。このことを話したら、他の業者さんで以前実際は負傷者がいたのに、0と書いて、そのまま、パスできたなんて話も聞いております。正直者が馬鹿をみるなんてことがあるんでしょうか?皆さんのところではどうでしょうか?現実として結構ある(やっていること)ことだったりするんでしょうか?全体の点数的にも少しでもあげたい状況でどうしようか迷っております。(もちろん法的倫理的には正直に申告すべきとは思うのですが、上司も0でいいなんていいだしておりまして、、、)経験談等あれば教えてください。お願いいたします。

いつもお世話になっております。
このたび建設業の経営事項審査審査を受けるにあたって申請書等作成したのですが、その中で「その他の審査項目」の工事の安全成績のところで、前年負傷者が1人出てしまっていたため、それを記入したのですが、ここで?と思うことがありました。弊社の属する地域が出している経営審査の際に提示する確認資料等一覧の中に、このことを証明するような書類等はまったく入っていませんでした。つまり、逆に言えばここで0と(嘘を)書いても、確認していないのだから、そのまま通過して...続きを読む

Aベストアンサー

都道府県によっては、地元の労働局に照会しているところもありますが、基本的には自己申告ですので、確認は難しいです。
だからといって、経営事項審査の虚偽申請は、建設業法違反の立派な犯罪であり、現在でも15日以上の営業停止処分がなされることとなっています。
ばれないと思っていても、同業者からの通報(タレこみ)があれば一発アウトですので、やめた方がいいです。
そもそも、当サイトは、違法行為を目的とした質問や、Q&Aのやりとりが結果的に違法行為を助長すると判断される投稿は、禁止されています。

また、現行の経営事項審査のルールは今年度までのもので、現在抜本改正が予定されており、来年4月1日以降に申請するものについては、改正後のルールが適用されます。
詳細は未発表ですが、方向性としては、ペーパーカンパニーが高得点を取ることを防ぐ仕組み、虚偽申請の徹底排除の仕組みが随所に盛り込まれています。
W評点については、「賃金不払件数」や「工事の安全成績」といった自己申告によるものは、確認が難しいため、廃止されることになっています。

>特にこの業務災害は2年間影響しますので、入札参加資格申請を考えると大事な項目だと思うのですが
・とありますが、次回の経営事項審査では、この項目は廃止されています。
このほか、X1の評点テーブル、X2の計算方法、Yの経営比率、Zの計算方法など、Wも含めて全面抜本改正ですので、ご注意ください。

個人的には、「ばれないから虚偽申請してもよい」「正直者がバカを見る」というような考え方をしている建設業者がいまだに少なくないからこそ、世間の建設業界に対する視線が厳しくなるのだと思います。

都道府県によっては、地元の労働局に照会しているところもありますが、基本的には自己申告ですので、確認は難しいです。
だからといって、経営事項審査の虚偽申請は、建設業法違反の立派な犯罪であり、現在でも15日以上の営業停止処分がなされることとなっています。
ばれないと思っていても、同業者からの通報(タレこみ)があれば一発アウトですので、やめた方がいいです。
そもそも、当サイトは、違法行為を目的とした質問や、Q&Aのやりとりが結果的に違法行為を助長すると判断される投稿は、禁止されていま...続きを読む

QエクセルVBA:テキストデータ(txt)の読込(改行が変なところでされる)

勉強しながら、エクセルVBAを組んでみたのですが
うまくいきません。

テキストデータを以下のようなプログラムで読んだのですが
(100行のデータを縦に並ぶように100個のセルの書き出す)
読み込みデータに「↓」で改行されているところでは
「↓」の間は同一行と見なされてしまうのですが
どのようにしたら一行で一つのデータと見てくれるのでしょうか?

分かる方がいましたら教えて下さい。
よろしくお願いします。



Sub pon()
'*** 変数の宣言 ***
Dim filenum As String
Dim i As Integer
Dim num As Integer, ms As String, cnt As Integer
Dim BookName As String, PathName As String
Dim ca As String

cnt = 1
i = 1

ca = Cells(1, 56)

PathName = "C:\"
textpath = Dir(PathName & "pon" & ca & ".txt")

BookName = Dir(PathName & "pon" & ca & ".txt")

Open PathName & BookName For Input As #1 'ファイルを開きます

Do While Not EOF(1)
Line Input #1, ms
cnt = cnt + 1
Cells(1, 57) = BookName 'データの書き出し

Cells(cnt, 56) = ms 'データの書き出し

Loop
Close #1

End Sub

勉強しながら、エクセルVBAを組んでみたのですが
うまくいきません。

テキストデータを以下のようなプログラムで読んだのですが
(100行のデータを縦に並ぶように100個のセルの書き出す)
読み込みデータに「↓」で改行されているところでは
「↓」の間は同一行と見なされてしまうのですが
どのようにしたら一行で一つのデータと見てくれるのでしょうか?

分かる方がいましたら教えて下さい。
よろしくお願いします。



Sub pon()
'*** 変数の宣言 ***
Dim filenum As String
Dim i As Integer
...続きを読む

Aベストアンサー

FileSystemObjectを使って入力すれば、改行コードに悩まされることなく同じようにプログラムできます。
Public Sub pon()
Dim objFs, file, filename, BookName
Dim cnt
Dim ca, ms

Set objFs = CreateObject("Scripting.FileSystemObject")

ca = Cells(1, 56)
filename = "C:\pon" & ca &".txt"
BookName = dir(filename)
Set file = objFs.OpenTextFile(filename, 1) 'read Only

Cells(1, 57) = BookName 'データの書き出し
cnt = 1
Do Until file.AtEndOfStream
ms = file.ReadLine
cnt = cnt + 1
Cells(cnt, 56) = ms 'データの書き出し
Loop
file.Close
End Sub

FileSystemObjectを使って入力すれば、改行コードに悩まされることなく同じようにプログラムできます。
Public Sub pon()
Dim objFs, file, filename, BookName
Dim cnt
Dim ca, ms

Set objFs = CreateObject("Scripting.FileSystemObject")

ca = Cells(1, 56)
filename = "C:\pon" & ca &".txt"
BookName = dir(filename)
Set file = objFs.OpenTextFile(filename, 1) 'read Only

Cells(1, 57) = BookName 'データの書き出し
cnt = 1
Do Until file.AtEndOfStream
ms = file.ReadLine
...続きを読む

Q住民票(全事項証明)の項目内容について

住民票(全事項証明)をある所へ提出する必要があります。
この住民票(全事項証明)にはどのような情報が記載されるのでしょうか?
少し調べてみても、申請書の記入例なら直ぐ見つかるのですが、住民票(全事項証明)自体のサンプルは見つかりません。
よろしくお願いします。

Aベストアンサー

たびたびすみません。ひょっとして参考URLにあるようなことにお使いでしょうか?検索エンジンでヒットしました「住民票謄本(全事項証明)」という表現が文章中にありますが、だとすれば、きわめて不適切な表現です。「謄本」という意味は極めて曖昧です。No.1で書いた全部の事項が載った住民票をとられるのが、確実かと思います。余談ですが、私もお客様から「住民票謄本」を下さいと言われ、よく困惑しました。全部の記載事項が載った住民票とも考えられますし、戸籍の謄本と勘違いされている場合もありました。用語を役所間で統一すべきと思います。

参考URL:http://www.dalian.cn.emb-japan.go.jp/visa_02.html

Qエクセル:項目を自動で50音のシートに分け、対応する項目を抜き出したいのですが・・・

長文、失礼します。
エクセルで、A行(列?)が人物、BCD行(列?)が物品として、シート1に
  A   B   C   D
1青木 あさ ゆず じこ ・・・
2山田 かわ こめ あき ・・・
3鈴木 しみ あく ごろ ・・・


と言うブックがあるとします。
シート1をベースとして、シート2に品名「あ」で始まる物品、シートに3に「し」で始まる物品に分類して対応する人物を抜き出す、例えば
シート2
  A   B
1あさ 青木
2あき 山田
3あく 鈴木


シート3
  A   B
1じこ 青木
2しみ 鈴木


シート4
  A   B
1こめ 山田
3ごろ 鈴木


と「物品名」での索引簿を作ろうとした場合、関数によりどこまで自動化できるでしょうか?
やりたいことは、シート1をベースにして
物品名が「あ」で始まる全品名をシート2に、「い」で始まる全品名をシート3に、それぞれ自動的に取り出し、その品物に対応した人物名を横に表示する
と言うことを、50音別に作成したシートで濁音を含めて行う、と言うことです。
正直できるのかどうかも怪しいですが、こんな関数はどう?と言うことでも教えて頂ければとても助かります。
エクセルで行うのが希望ですが違うソフトでも結構ですので、いい方法をご存知の方がいらっしゃればご教示下さい。

長文、失礼します。
エクセルで、A行(列?)が人物、BCD行(列?)が物品として、シート1に
  A   B   C   D
1青木 あさ ゆず じこ ・・・
2山田 かわ こめ あき ・・・
3鈴木 しみ あく ごろ ・・・


と言うブックがあるとします。
シート1をベースとして、シート2に品名「あ」で始まる物品、シートに3に「し」で始まる物品に分類して対応する人物を抜き出す、例えば
シート2
  A   B
1あさ 青木
2あき 山田
3あく 鈴木


シート3
  A   B
1...続きを読む

Aベストアンサー

50シートを超えるうえに、複雑な処理で、どのくらいの容量になるのか、大変そうですね。

関数のヒントということに とどめます
あ → PHONETIC関数でふりがなの「ア」とする
これは、一覧表内のあ~んを検索するときにカタカナに統一する準備です。
code関数 具体的には code("ア") で ア→9506 にする
ちなみに シ →9527 ジ → 9528でした。

また、物品名の一覧表も作業シートを作って、code関数で変換した一覧表を作成する

=INDEX(オリジナルシートの範囲,ROW(),MATCH(CODE("ア"),codeの一覧表範囲,0)+1)
のようにすると

シート2
  A   B
1あさ 
2あき 
3あく 

までは、可能かも
そこから、個人名を引き出すのは、今は思いつかないので、略します。

あさ、あきなどが、同じ人で重複して登場したらどうするとか、困難な条件も思いついてしまいます


人気Q&Aランキング

おすすめ情報