① txt文件怎麼做目錄
用dos實現,很簡單的。
步驟1、新建一個文本文檔(txt格式)
步驟2、打開輸入以下內容回
「dir /s /n >目錄.txt」
注意不要引號,答然後點選另存為,「文件名」欄改為「目錄.bat」注意要去掉txt後綴,文件類型改為所有,即可。雙擊運行。可以移動到任何文件夾生成。
② 請問txt小說如何批量修改章節名稱,第一章、第二章...第一二三四章 替換成第1章、第2章...第1234章;
如下所示,試試其對應的功能。選擇文檔批處理功能卡,勾選doc類型,使用添加文件按鈕將txt文檔添加入列表中。
③ 使用word怎麼批量修改txt小說章節名稱
ctrl+H打開替換對話框,單擊高級,勾選使用通配符,在查找框中原樣輸入:第[一二三四五六七八九十]@章
在替換為框中輸入:究極武裝^&
單擊全部替換即可。熟悉word的通配符替換,可以實現很多你意向不到的功能。
第二個問題要採用VBA編程才能實現!
在工具=宏-宏...中,打開對話框,新建一個宏,創建,打開VBA編輯器,將裡面的內容清空,然後將如下代碼粘貼進去後按F5鍵運行即可。(只適用於<1000的情形下)
Sub MyReplace()
Selection.HomeKey
Selection.WholeStory
WholeText = Selection.Text
Debug.Print WholeText
WholeTextTmp = ""
Do Until WholeText = ""
MyChTmp = Left(WholeText, 1)
If InStr("一二三是五六七八九十百", MyChTmp) Then
MyCh = MyCh + MyChTmp
Else
If Len(MyCh) = 1 Then
Select Case MyCh
Case "一": MyCh = "001"
Case "二": MyCh = "002"
Case "三": MyCh = "003"
Case "四": MyCh = "004"
Case "五": MyCh = "005"
Case "六": MyCh = "006"
Case "七": MyCh = "007"
Case "八": MyCh = "008"
Case "九": MyCh = "009"
Case "十": MyCh = "010"
End Select
ElseIf Len(MyCh) = 2 Then
Select Case MyCh
Case "二十": MyCh = "020"
Case "三十": MyCh = "030"
Case "四十": MyCh = "040"
Case "五十": MyCh = "050"
Case "六十": MyCh = "060"
Case "七十": MyCh = "070"
Case "八十": MyCh = "080"
Case "九十": MyCh = "090"
Case "一百": MyCh = "100"
Case "十一": MyCh = "011"
Case "十二": MyCh = "012"
Case "十三": MyCh = "013"
Case "十四": MyCh = "014"
Case "十五": MyCh = "015"
Case "十六": MyCh = "016"
Case "十七": MyCh = "017"
Case "十八": MyCh = "018"
Case "十九": MyCh = "019"
End Select
ElseIf Len(MyCh) = 3 Then
Select Case Left(MyCh, 1)
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
MyCh = "0" + a + b
ElseIf Len(MyCh) = 4 Then
Select Case Left(MyCh, 1)
Case "一": a = "1"
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
MyCh = a + "0" + b
ElseIf Len(MyCh) = 5 Then
Select Case Left(MyCh, 1)
Case "一": a = "1"
Case "二": a = "2"
Case "三": a = "3"
Case "四": a = "4"
Case "五": a = "5"
Case "六": a = "6"
Case "七": a = "7"
Case "八": a = "8"
Case "九": a = "9"
End Select
Select Case Mid(MyCh, 3, 1)
Case "一": b = "1"
Case "二": b = "2"
Case "三": b = "3"
Case "四": b = "4"
Case "五": b = "5"
Case "六": b = "6"
Case "七": b = "7"
Case "八": b = "8"
Case "九": b = "9"
End Select
Select Case Right(MyCh, 1)
Case "一": c = "1"
Case "二": c = "2"
Case "三": c = "3"
Case "四": c = "4"
Case "五": c = "5"
Case "六": c = "6"
Case "七": c = "7"
Case "八": c = "8"
Case "九": c = "9"
End Select
MyCh = a + b + c
End If
WholeTextTmp = WholeTextTmp + MyCh + MyChTmp
MyCh = ""
End If
WholeText = Mid(WholeText, 2)
Loop
Selection.WholeStory
Selection.Text = WholeTextTmp
MsgBox "查找替換完畢!"
End Sub
④ txt電子書如何添加目錄
那是因為閱讀器只識別第幾章、第幾節的關鍵字,如:第一章、---------第五章。
⑤ TXT電子書中如何加目錄
這個可以在來電腦上編輯,把文本按源卷、章、節標明,如第一部分,第一卷、第一章、第一節等,或第1部分、第1卷、第1章、第1節等,標題完後換行,以此類推,都編輯好了,就發到手機上,閱讀器一般會自動讀取文本里的章節生成目錄(主要是識別文本中第*部[分]、第*卷、第*章、第*節等文字而形成目錄,*表示一、二、三、四...或者1、2、3、4...),我用的是多看閱讀,我按照這個方法可以生成目錄,還有頁碼顯示。你可以試下。下面上圖
⑥ word或txt中如何給小說作品的章節批量修改章節序號
如果整部小說在一個文檔里,那就用通配符(或正則表達式),先全部刪除原來的編號,然後都改成自動編號。
⑦ 怎麼在一個1M以上的txt小說中加入txt章節目錄
是否可以用txt切割器,弄成小段小段的再處理。
強烈推薦txt切割器,看txt小說必備啊~~~~
網上搜一下,很多
⑧ 用什麼方法可以給TXT小說加目錄~像UMD一樣~
你可以下載一個小說閱讀器,裡面就可以把小說按頁數或章節分著看,只是好像沒有目錄。我本人用的是迷你小說閱讀器,可以設置成按頁數或章節看的