VB6: Νομίζει ότι το απλό text είναι XML η κάτι τέτοιο.

[Dj_kourampies]

Όπως φαίνεται και από τον τίτλο του θέματος, δεν έχω καμία γνώση προγραμματισμού, έφτιαξα κάτι με τα samples και τα tutorials που βρήκα στο google.

 

Το προγραμματάκι που θέλω να φτιάξω, θα πρέπει να κάνει update 2 files με βάση τα textboxes του.

 

Το έφτιαξα και δουλεύει εξαιρετικά με τον εξής κώδικα:

 

>Dim whatsonTXT As Integer

whatsonTXT = FreeFile

Open "c:\Jazler Radio II\NowOnAir.txt" For Output As whatsonTXT

Print #whatsonTXT, Text1.Text & " - " & Text2.Text

Close whatsonTXT

 

έβαλα να κάνει το ίδιο σε ένα δεύτερο file, τα πράγματα όμως μπερδεύτηκαν, γιατί το δεύτερο αρχείο είναι XML, και δεν το δέχεται η VB σαν απλό text, περιμένει expressions το χρησιμοποιεί ως XML κτλ.

 

Για την ακρίβεια το κείμενο του XML είναι αυτό:

 

<Schedule System="Jazler">

<Event status="happening" eventType="idle">

<Song title="Title">

<Artist name="Artist">

</Artist>

</Song>

</Event>

</Schedule>

 

To Artist είναι το Text1.Text και το Title το Text2.Text

 

υπάρχει τρόπος να το δεχτεί ως απλό text και να κάνει απλά update τα συγκεκριμένα σημεία συμφωνα με τα text boxes?

[UserXP]

>
Dim aFreeFile As Integer
Dim aText As String

aText = """Schedule System=""Jazler"">" & vbCrLf & _
"<Event status=""happening"" eventType=""idle"">" & vbCrLf & _
"<Song title=""" & Text2.Text & """>" & vbCrLf & _
"<Artist name=""" & Text1.Text & """>" & vbCrLf & _
"</Artist>" & vbCrLf & _
"</Song>" & vbCrLf & _
"</Event>" & vbCrLf & _
"</Schedule>"

aFreeFile = FreeFile
Open "c:\aTestFile.txt" For Output As aFreeFile
   Print #aFreeFile, aText
Close aFreeFile