Sonstiges Programmieren in WEBfactory2010 Studio

[Kreak_Blutklinge]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo alle miteinander,

ich soll etwas programmieren, wie der Titel schon sagt.

Und zwar soll eine Datei ausgelesen werden und der Wert, welcher sich darin, an einer bestimmten Stelle befindet dann in ein Signal geladen werden, damit er von einem Trend verwendet werden kann.

Bis jetzt sieht mein Code so aus:

1 Sub GetResult()
2
3
4
5 nMod = (Minute(time()) mod 5)
6 If nMod = 0 Then
7 strDatei = "U:\2Sensoren0000000001_20130621113000.MIS.txt"
8 Const ForReading = 1
9 Set objFSO = CreateObject("Scripting.FileSystemObject")
10 Set objDatei = objFSO.GetFile(strDatei)
11 If objDatei.Size > 0 Then
12 Set objFile = objFSO.OpenTextFile(strDatei,ForReading)
13 strText = objFile.ReadAll
14 objFile.Close
15 End If
16 Set objFSO = Nothing
17 Set objFile = Nothing
18 Set objDatei = Nothing
19 nFound = InStr(strText,vbCrLf)
20 nFound = nFound + 1
21 strText = Mid(strText,nFound,Len(strText))
22 nFound = InStr(strText,vbCrLf)
23 If nFound > 17 Then
24 nWert = nFound - 17
25 End If
26 strPegel = Mid(strText,18,nWert)
27 Result = strPegel
28 End If
30
31 End Sub

Aber bei Zeile 10 kommt er nicht weiter.

Kann mir wer helfen oder allgemein Tipps geben damit das dann auch läuft?

Danke im Voraus

MfG

 

[Kreak_Blutklinge]

Das Problem hat sich von selbst gelöst. Es lag daran, dass der Server nicht auf den Speicherplatz der Datei zugreifen kann. Ich hab die auf den lokalen Rechner geholt und schon gings. Nur kann ich da gerade nicht mit Kommazahlen arbeiten. Es wird immer aufgerundet.

 

[Larry Laffer]

Zuviel Werbung?
-> Hier kostenlos registrieren

Nur kann ich da gerade nicht mit Kommazahlen arbeiten. Es wird immer aufgerundet.

Das verstehe ich nicht ... erklär mal näher ...

 

[Kreak_Blutklinge]

Ne das hat sich auch geklärt, war nur falsch formatiert. Es stand ein Punkt anstatt ein Komma.
Hab es auch vollkommen zum Laufen gebracht