htmlデータからエクセルへの書き出し エクセルに一列しか出力されない

Question

前提・実現したいこと

htmlデータから特定の文字を抽出し、エクセルへ出力したいと考えています。

<p class="d-chat_timeline-name">　名　前（発信者）1　</p>の欄をエクセルのA行に、 <li>日付と時間1</li>の欄をエクセルのB行に、 <div>名前1-1（受信者）<br />名前1-2（受信者）<br />名前1-3（受信者）<br />内容1</div>の欄をエクセルのC行に書き出したいのです。

プログラミングを実行したところ、<div>名前1-1（受信者）<br />名前1-2（受信者）<br />名前1-3（受信者）<br />内容1</div>の欄だけしか書き出しませんでした。
エラーコードもなく、どのようにしたらいいのかわかりません。
アドバイスいただけないでしょうか。どうぞよろしくお願いいたします。

＜htmlデータ＞

<div class="d-chat_timeline-post"> <p class="d-chat_timeline-name">　名　前（発信者）1　</p> <ul class="d-chat_timeline-info"> <li>日付と時間1 </li> </ul> <div>名前1-1（受信者）<br /> 名前1-2（受信者）<br /> 名前1-3（受信者）<br /> 内容1</div>

発生している問題・エラーメッセージ

pythonでのエラーメッセージはありません。エクセル出力時にC行だけ出力される。

該当のソースコード

# -*- coding: utf-8 -*-
"""
Spyderエディタ

これは一時的なスクリプトファイルです
"""

import os, tkinter, tkinter.filedialog, tkinter.messagebox
root = tkinter.Tk()
root.withdraw()
fTyp = [("","*.html")]
file = tkinter.filedialog.askopenfilename(filetypes = fTyp)
fd=open(file,"r",encoding="utf-8") 

res=fd.read()
from bs4 import BeautifulSoup

mojie=[]
cur_pos=0
while True :
   target_tag = '<p class="d-chat_timeline-name">'
   closing_tag = '</p>'
   start_pos = res[cur_pos:].find(target_tag)
   end_pos = res[cur_pos:].find(closing_tag)
   if (start_pos == -1) or (end_pos == -1):
      break
   mojie.append(res[cur_pos + start_pos + len(target_tag) : cur_pos + end_pos])
  
   cur_pos = cur_pos + end_pos + len(closing_tag)
 

import xlsxwriter 
wb = xlsxwriter.Workbook('C:/Users/XXXXXXXXXXX/Desktop/out.xlsx')
ws1 = wb.add_worksheet('sheet')

i=0
for a in mojie:
    i=i+1
    ws1.write(i, 0, a)

mojie=[]
cur_pos=0
while True :
   target_tag = '<li>'
   closing_tag = '</li>'
   start_pos = res[cur_pos:].find(target_tag)
   end_pos = res[cur_pos:].find(closing_tag)
   if (start_pos == -1) or (end_pos == -1):
      break
   mojie.append(res[cur_pos + start_pos + len(target_tag) : cur_pos + end_pos])
  
   cur_pos = cur_pos + end_pos + len(closing_tag)
 

import xlsxwriter 
wb = xlsxwriter.Workbook('C:/Users/XXXXXXXXXXX/Desktop/out.xlsx')
ws2 = wb.add_worksheet('sheet')

i=0
for a in mojie:
    i=i+1
    ws2.write(i, 1, a)

mojie=[]
cur_pos=0
while True :
   target_tag = '<div>'
   closing_tag = '</div>'
   start_pos = res[cur_pos:].find(target_tag)
   end_pos = res[cur_pos:].find(closing_tag)
   if (start_pos == -1) or (end_pos == -1):
      break
   mojie.append(res[cur_pos + start_pos + len(target_tag) : cur_pos + end_pos])
  
   cur_pos = cur_pos + end_pos + len(closing_tag)
 

import xlsxwriter 
wb = xlsxwriter.Workbook('C:/Users/XXXXXXXXXXX/Desktop/out.xlsx')
ws3 = wb.add_worksheet('sheet')

i=0
for a in mojie:
    i=i+1
    ws3.write(i, 2, a)
 
wb.close()

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

closeで書き込みが行われるのに、クローズせずに開き直しているから最後のwriteしか反映されない

Comments

[Kirari]

書き出しすることができました。ありがとうございます。

Answer 2

下記で解決しました。

import os, tkinter, tkinter.filedialog, tkinter.messagebox
root = tkinter.Tk()
root.withdraw()
fTyp = [("","*.html")]

file="/Users/XXXXXX/Desktop/message1.html"
fd=open(file,"r",encoding="utf-8")

res=fd.read()
from bs4 import BeautifulSoup

mojie=[]
cur_pos=0
while True :
target_tag = '<p class="d-chat_timeline-name">'
closing_tag = '</p>'
start_pos = res[cur_pos:].find(target_tag)
end_pos = res[cur_pos:].find(closing_tag)
if (start_pos == -1) or (end_pos == -1):
break
mojie.append(res[cur_pos + start_pos + len(target_tag) : cur_pos + end_pos])

cur_pos = cur_pos + end_pos + len(closing_tag)

target_tag = '<ul class="d-chat_timeline-info">'
closing_tag = '</li>'
start_pos = res[cur_pos:].find(target_tag)
end_pos = res[cur_pos:].find(closing_tag)
if (start_pos == -1) or (end_pos == -1):
break
mojie.append(res[cur_pos + start_pos + len(target_tag) : cur_pos + end_pos])

cur_pos = cur_pos + end_pos + len(closing_tag)

target_tag = '<div>'
closing_tag = '</div>'
start_pos = res[cur_pos:].find(target_tag)
end_pos = res[cur_pos:].find(closing_tag)
if (start_pos == -1) or (end_pos == -1):
break
mojie.append(res[cur_pos + start_pos + len(target_tag) : cur_pos + end_pos])

cur_pos = cur_pos + end_pos + len(closing_tag)

import xlsxwriter
wb = xlsxwriter.Workbook('/Users/XXXXXXX/Downloads/out.xlsx')
ws1 = wb.add_worksheet('sheet')

i=0
for a in mojie:
i=i+1
ws1.write(i, 0, a)

wb.close()