台灣最大程式設計社群網站
線上人數
1468
 
會員總數:244807
討論主題:188842
歡迎您免費加入會員
討論區列表 >> ACCESS >> 用 ACCESS VBA 批次修改,欄位中的文字資料
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
用 ACCESS VBA 批次修改,欄位中的文字資料
價值 : 50 QP  點閱數:377 回應數:9

樓主

bake
門外漢
0 1
25 5
發送站內信


各高手大哥安好

小弟有許多文件資料,需改文字,以供其他資料庫使用
問了幾個外包都沒回應,想來這邊問問看,看是否能得到協助

欲改的資料約如下
1. (2) 對於核計勞工所得有無低於基本工資,下列敘述何者有誤? ヾ 僅計入在正常工時內之報酬 ゝ 應計入加班費 ゞ 不計入休假日出勤加給之工資 々 不計入競賽獎金 。
2. (3) 下列何者之工資日數得列入計算平均工資? ヾ 請事假期間 ゝ 職災醫療期間 ゞ 發生計算事由之前 6 個月 々 放無薪假期間 。
修改成
對於核計勞工所得有無低於基本工資,下列敘述何者有誤? , radio, 僅計入在正常工時內之報酬 ,0,1, 應計入加班費 ,1,1,不計入休假日出勤加給之工資 ,0,1, 不計入競賽獎金 ,0,1
下列何者之工資日數得列入計算平均工資? , radio, 請事假期間 ,0,1, 職災醫療期間 ,0,1, 發生計算事由之前 6 個月 ,1,1,放無薪假期間 ,0,1

文字資料匯進 ACCESS 後用程式去修改,欄位中的文字資料

如果需付費也可以

感謝幫忙^^
我不知QP這樣可不可以






搜尋相關Tags的文章: [ 批次修改,欄位中的文字資料 ] ,
本篇文章發表於2019-03-02 22:26
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

P陳
檢舉此回應
您的題目很大哦

目前有資料庫嗎? 寄來我看一下吧
還是要重頭開發

hi.jcchen@msa.hinet.net
本篇文章回覆於2019-03-02 23:00
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

bake
檢舉此回應

感謝大哥回覆^^
或許是我愚蠢 以為並不會太難,只是我不會而已

我現在只有欲改的文件檔,沒有資料庫程式

給別的資料庫用是,把資料給網站上的測驗程式運作
把資料改成所需的格式,再匯入網站中使用

我有ACCESS 2016 N~N~年前有學過基本操作
所以或許我只需 一張表單 指向已匯入的資料表 再用程式去把欲修改的文字改好

匯入資料,已完成修改匯出可以自己操作
所以不用整隻完整的程式,我只需 修改文字的那段程式碼就好


相同位子替換的文字比較容易,我可以使用文字編輯器替換。
我以為讓程式跑 很容易說

比較麻煩的是
例:答案(3) 要去替換選項 ゞ = ,1,1,



本篇文章回覆於2019-03-03 12:55
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
作者回應

bake
檢舉此回應
我把修改分成3段 A,B,C
由於 ヾ ゝ ゞ 々 會出現亂碼 我先改成 Ⅰ Ⅱ Ⅲ Ⅳ 再匯入資料表
A段 修改 Ⅰ Ⅱ Ⅲ Ⅳ 至 正確位子
B段 修改答案 找出()內答案數字,再將應對的 Ⅰ Ⅱ Ⅲ Ⅳ 改成 ,1,1,
將其餘答案改成 ,0,1,
C段 修改 () 前的文字-包含()

我有嘗試修改A段
假如資料有3筆
有將QC4 改成我要的
迴圈有跑3次,可是資料只有改第一筆



Private Sub 修改資料鈕_Click()

Dim Ttxt
Dim QC
Dim QC1
Dim QC2
Dim QC3
Dim QC4


Set LNQ = CurrentDb.OpenRecordset("原始檔資料查詢")

Do Until LNQ.EOF

AA = [原始檔資料查詢 子表單].Form![內容] '設定內容資料

QC = Replace(AA, "Ⅰ", ",radio,") '修改Ⅰ=,radio,
QC1 = Replace(QC, "Ⅱ", "Ⅰ") '修改Ⅱ=Ⅰ
QC2 = Replace(QC1, "Ⅲ", "Ⅱ") '修改Ⅲ=Ⅱ
QC3 = Replace(QC2, "Ⅳ", "Ⅲ") '修改Ⅳ=Ⅲ
QC4 = Replace(QC3, "。", "Ⅳ") '修改。=Ⅳ

[原始檔資料查詢 子表單].Form![內容] = QC4

LNQ.MoveNext


Loop


End Sub
本篇文章回覆於2019-03-03 15:07
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
回應

P陳
檢舉此回應
您的程式看起來不管 迴圈有跑多少次
都只會改目前在子表單的那一筆而己

[原始檔資料查詢 子表單].Form![內容] =QC4
---------------------------------------------
您的這個例子
這種的我都直接修改資料庫中的資料,不會透過表單來處理。


本篇文章回覆於2019-03-03 22:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
作者回應

bake
檢舉此回應
那請教大哥

該如何做

感謝指導,該付費的話 也是可以考慮

感謝您的回覆
本篇文章回覆於2019-03-03 22:58
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
最有價值解答

P陳
檢舉此回應
看起來您要的程式不難 難在我算不出你要的是什麼?
您的資料來源是那個? 文字檔嗎? 還是已轉入Access 了?

再將應對的 Ⅰ Ⅱ Ⅲ Ⅳ 改成 ,1,1, <--- 什麼叫 ,1,1,
將其餘答案改成 ,0,1, <-- ,0,1,

但......
您給的範例又跟說明無關 (我對不出來)
QC = Replace(AA, "Ⅰ", ",radio,") '修改Ⅰ=,radio,
QC1 = Replace(QC, "Ⅱ", "Ⅰ") '修改Ⅱ=Ⅰ
QC2 = Replace(QC1, "Ⅲ", "Ⅱ") '修改Ⅲ=Ⅱ
QC3 = Replace(QC2, "Ⅳ", "Ⅲ") '修改Ⅳ=Ⅲ
QC4 = Replace(QC3, "。", "Ⅳ") '修改。=Ⅳ

本篇文章回覆於2019-03-04 10:35
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
作者回應

bake
檢舉此回應

我已有的是文字檔,我可以自己將檔案匯入ACCESS,完成後自己匯出

由於 ヾ ゝ ゞ 々 在程式裡會變成亂碼 所以我先改成 Ⅰ Ⅱ Ⅲ Ⅳ 再匯到ACCESS的資料表


1.(4) 題目A? Ⅰ答案 Ⅱ答案 Ⅲ答案 Ⅳ答案
2.(3) 題目B? Ⅰ答案 Ⅱ答案 Ⅲ答案 Ⅳ答案
3.(2) 題目C? Ⅰ答案 Ⅱ答案 Ⅲ答案 Ⅳ答案



本來答案的選項是在答案的前面,要改到答案的後面(這只過程)

1.(4) 題目A? 答案Ⅰ 答案Ⅱ 答案Ⅲ 答案Ⅳ
2.(3) 題目B? 答案Ⅰ 答案Ⅱ 答案Ⅲ 答案Ⅳ
3.(2) 題目C? 答案Ⅰ 答案Ⅱ 答案Ⅲ 答案Ⅳ




將對的答案代號改成,1,1,
不對的答案代號改成,0,1,
將 題目X? 之後加入,radio,
刪除開頭 1.(4) 這些文字 (題目會有3位數的量)

題目A?,radio, 答案 ,0,1, 答案 ,0,1, 答案 ,0,1, 答案 ,1,1,
題目B?,radio, 答案 ,0,1, 答案 ,0,1, 答案 ,1,1, 答案 ,0,1,
題目C?,radio, 答案 ,0,1, 答案 ,1,1, 答案 ,0,1, 答案 ,0,1,


以上 如有不清楚在補充
本篇文章回覆於2019-03-04 11:27
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
回應

P陳
檢舉此回應
說實在很不清楚您要的邏輯

已發站內信 給您了,請收
本篇文章回覆於2019-03-04 13:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
9樓
作者回應

bake
檢舉此回應
感謝 P陳 回覆

我沒問題了^^
本篇文章回覆於2019-03-06 16:01
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.