access-vba
एक्सेस Vba में टेक्स्ट डिलीट की गई फ़ाइल बनाएँ
खोज…
परिचय
कई बार आपको विभिन्न उपयोगों के लिए एक सीमांकित पाठ फ़ाइल बनाने की आवश्यकता हो सकती है। निम्न उदाहरण आपको ऐसा करने में मदद करने के कई तरीकों में से एक है। मैंने अपने सीमांकक के लिए एक पाइप ("|") का उपयोग किया है, यह बदलने के लिए कि बस सिपाही चर का असाइनमेंट बदलें। मेरे उदाहरण में, मैं एक सरणी में रिकॉर्डसेट को डंप करता हूं, यह किसी भी तरह से डिफैक्टो दृष्टिकोण से नहीं है, यह सिर्फ मेरे पास जाता है। यह आसानी से रिकॉर्डसेट का उपयोग करके भी किया जा सकता है।
टिप्पणियों
यह इंगित करने योग्य है:
Wholeline = Wholeline & aRR(i, j) & Sep
क्योंकि रिकॉर्ड किए गए सरणियों के लिए रिकॉर्ड डंप करता है, आपको इसे पीछे की ओर पाठ फ़ाइल में पढ़ना होगा। यदि आप गतिशील सरणियों के साथ काम कर रहे हैं, तो यह वास्तव में एक तरह का काम है, क्योंकि यह आपके लिए पहले से ही ट्रांसपोज हो चुका है, इसलिए किसी भी भारी लिफ्टिंग से पहले "पंक्ति गणना" को फिर से किया जा सकता है।
इसके अलावा कुछ भी नहीं लायक:
आप इस वाक्यविन्यास का उपयोग करके आसानी से एक नई एक पंक्ति में डंप करके youre सरणी को स्थानांतरित कर सकते हैं:
Dim xaRR() As String
ReDim xaRR(q, z)
xaRR(j, i) = aRR(i, j)
यह मेरी पोस्ट के लिए बहुत प्रासंगिक नहीं है, लेकिन इसकी ओर इशारा करने लायक है।
उदाहरण:
Private Sub this()
Dim rs As DAO.Recordset
Dim q%: Dim z%
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Invoice;")
With rs
rs.MoveLast
q = rs.RecordCount
rs.MoveFirst
z = rs.Fields.Count
End With
Dim aRR As Variant
aRR = rs.GetRows(q)
Dim i%: Dim j%: Dim counter#: Dim Sep$: Dim Wholeline$: Dim NewTextFile$: Dim path$: Dim fileNameV$
Sep = "|"
path = Environ("USERPROFILE") & "\Desktop" & "\"
fileNameV = "Text007.txt"
NewTextFile = path & fileNameV
Open NewTextFile For Output As #2
For j = LBound(aRR, 2) To UBound(aRR, 2)
For i = LBound(aRR, 1) To UBound(aRR, 1)
Wholeline = Wholeline & aRR(i, j) & Sep
Next i
Print #2, Wholeline
Wholeline = vbNullString
Next j
Close #2
rs.Close
Set rs = Nothing
Erase aRR
End Sub