HouseBot

Code: Select all

Option Explicit
On Error Resume Next

Dim nit
Dim nic
Dim Action
Dim Sort
Dim TotalLines
Dim FileSystem
Dim StdIn
Dim FileName
Dim objRE
Dim strContent
Dim colLines
Dim PhoneBookLog
Dim Regel
Dim Temp
Dim PhoneName()
Dim PhoneNumber()


Do
	Sleep 1
	Action = GetPropertyValue ("Telefoon Status.PhoneBook Action")
	If Action <> "Waiting" Then
		SetPropertyValue "Telefoon Status.PhoneBook Action", "Waiting"
		SetPropertyValue "Telefoon Status.Log PhoneBook", ""
		Sort           = GetPropertyValue ("Telefoon Status.PhoneBook Sort")
		FileName       = "C:\Program Files\XAN ISDN-Anrufbeantworter\Einstellungen\Telefoonboek.DAT"
		PhoneBookLog   = ""
		Set FileSystem = CreateObject("Scripting.FileSystemObject")
		Set StdIn      = FileSystem.OpenTextFile(FileName, 1)
		
		If Err.Number = 0 Then
			strContent     = StdIn.ReadAll
			Set objRE      = New RegExp
			objRE.Global   = True
			objRE.Pattern  = ("\n")
			Set colLines   = objRE.Execute(strContent)
			
			ReDim PhoneName(colLines.count + 1)
			ReDim PhoneNumber(colLines.count + 1)
		
			Set StdIn  = FileSystem.OpenTextFile(FileName, 1)
			TotalLines = 0
			Do Until StdIn.AtEndOfStream
				Regel                   = Split(StdIn.ReadLine, Chr(9))
				PhoneNumber(TotalLines) = Regel(0)
				PhoneName(TotalLines)   = Regel(1)
				TotalLines              = TotalLines + 1
			Loop
		
			If Sort <> "Nummer" Then
				For nit = 0 to TotalLines
					For nic = nit + 1 to TotalLines
						If PhoneName(nic) < PhoneName(nit) Then
							Temp             = PhoneName(nic)
							PhoneName(nic)   = PhoneName(nit)
							PhoneName(nit)   = Temp
							Temp             = PhoneNumber(nic)
							PhoneNumber(nic) = PhoneNumber(nit)
							PhoneNumber(nit) = Temp
						End If
					Next
				Next
			Else
				For nit = 0 to TotalLines
					For nic = nit + 1 to TotalLines
						If PhoneNumber(nic) < PhoneNumber(nit) Then
							Temp             = PhoneName(nic)
							PhoneName(nic)   = PhoneName(nit)
							PhoneName(nit)   = Temp
							Temp             = PhoneNumber(nic)
							PhoneNumber(nic) = PhoneNumber(nit)
							PhoneNumber(nit) = Temp
						End If
					Next
				Next
			End If
			
			For nit = 1 to TotalLines
				PhoneBookLog = PhoneBookLog + PhoneName(nit) + "#" + PhoneNumber(nit) + vbTAB + PhoneName(nit) + vbTAB + PhoneNumber(nit) + vbLF
			Next
			
			StdIn.Close
			Set colLines = Nothing
			Set objRE    = Nothing
		Else
			PhoneBookLog = vbTAB + "Geen telefoonboek datafile gevonden!"
			Err.Clear
		End If

		SetPropertyValue "Telefoon Status.Log PhoneBook", PhoneBookLog
		Set StdIn      = Nothing
		Set FileSystem = Nothing
	End If
Loop