| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für SOLIDWORKS |
| | |
 | SolidCAM im Einsatz bei der August Weckermann KG |
|
Autor
|
Thema: API - Wert in .csv schreiben (1374 mal gelesen)
|
THSEFA
Mitglied
Konstrukteur/CAD-Admin
   Beiträge: 1141
Registriert: 27.11.2002 SWX 2020 SP5.0 Premium
Windows 10 Pro 64Bit
Citrix VM
Intel(R) XEON(R) Gold 6146 CPU @ 3.20GHz
24 GB Ram<P>Windows 10 Pro 64Bit
|
erstellt am: 07. Feb. 2012 11:53  <-- editieren / zitieren -->   Unities abgeben:          
Hallo Zusammen, wie kann ich bei einem bestimmten Ereignis einen Wert (String) in eine auf einem Server liegende .csv-Datei schreiben? Die Werte sollen untereinander weg geschrieben werden. Hat jemand ein Beispiel für mich, wo ich mal einen Blick darauf werfen kann, wie das im Idealfall funktioniert? Dankeschön schon mal fürs lesen!  ------------------
Viele Grüße, THSEFA  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ad_man
Mitglied
freiberuflicher Entwicklungsing. (Fahrzeugtechnik, CSWP, CPPA))
Beiträge: 1366
Registriert: 20.12.2003
|
erstellt am: 07. Feb. 2012 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für THSEFA 
Hallo THSEFA, hab dir mal ein kleines "Grundgerüst" geschrieben. Das sind eigentlich
alles VBA-Befehle, die du verwenden musst. Ich schaue mal, ob ich meine
Übersicht über die Dateibefehle auf meinem Rechner noch wiederfinde, aber
sonst hilft dir sicherlich eine Suchmaschine mit den Begriffen VBA und
Dateioperationen weiter  EDIT: Muss natürlich "Open strDateiname For Append As #1" heißen, da du ja
an die bestehende Datei anhängen möchtest... ------------------
==========
Gruß
Andreas
========== [Diese Nachricht wurde von ad_man am 07. Feb. 2012 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ckoring
Mitglied
Ingenieur
Beiträge: 229
Registriert: 09.06.2009 Fujitsu CELSIUS M740
Intel Xeon E5-1620v4
32 GB RAM
Nvidia Quadro P4000
Windows 10 Pro
SolidWorks 2017 SP4.1
DBWorks R16 SP1.7
|
erstellt am: 07. Feb. 2012 13:37 <-- editieren / zitieren --> Unities abgeben: Nur für THSEFA
Hi, hier ein kleiner Ausschnitt aus meinem Stücklisten-Export-Makro: Code:
sPath = "C:\test\" 'path of csv
sFile = "stueli.csv" 'filename of csv... Dim fFile As String
Dim FileNumber As Long fFile = sPath & sFile
FileNumber = FreeFile
Open fFile For Append As #FileNumber
Print #FileNumber, "ZuSchreibenderText"
Close #FileNumber
cheers Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| | Senior Electronic Engineer (f/m/x) | Magazino is a tech startup and robotics company based in Munich, Germany. Our team of hardware and software engineers is a leader in robot programming and development. Our robots work alongside humans ? autonomously, safely and at a level of complexity that no one before us has ever achieved. With over 100 employees, we are the largest Advanced Robotics team in Europe. We are looking for ... | | Anzeige ansehen | Elektrotechnik, Elektronik |
|
THSEFA
Mitglied
Konstrukteur/CAD-Admin
Beiträge: 1141
Registriert: 27.11.2002 SWX 2020 SP5.0 Premium
Windows 10 Pro 64Bit
Citrix VM
Intel(R) XEON(R) Gold 6146 CPU @ 3.20GHz
24 GB Ram<P>Windows 10 Pro 64Bit
|
erstellt am: 07. Feb. 2012 13:39 <-- editieren / zitieren --> Unities abgeben:
|
Foren auf CAD.de (alle Foren)
| 
