Contact personen toevoegen online opslaan & notitie's [xlgp]

[xl3igplayer]

Hallo ,

Ik wil een programmetje maken waarbij je contact personen kunt maken en bijv. een adres kunt toevoegen en notitie's. Ook een optie om online op te slaan.

Maar ik wil ook graag dat je kunt zoeken tussen de contact personen.
Weet iemand hoe ik dit kan maken ? Of hoe dit heet ?(dat ik er voor kan googlen )

Alvast Bedankt

 

[CaptainBri]

Ik zou het zo doen:

• Een struct aanmaken (of een class) die alle gegevens kan vasthouden.
• Een list maken die die struct/class vast gaat houden (globaal)
• Een form waarbij je een gebruiker kan toevoegen aan de list met structs/classes
• Een main form waar alle gebruikers op het scherm staan in een listview
• Een zoekfunctie die een lege lijst maakt van structs/classes en daar elke struct/class aan toevoegt die een bepaald item in de struct/class matcht. Daarna word de listview leeg gehaald en de lijst met gematchte items in de listview gezet.
  
  Een zoekfunctie zou een hele simpele for-each loop kunnen zijn, voorbeeld;
  

          Dim Gevonden As New List(Of Persoon)
          For Each p As Persoon In Personen
              If p.Naam.Contains("Zoekwoord") Then Gevonden.Add(p)
          Next

  
  Waarbij de gehele code er zo uit ziet;
  

      Private Sub Zoek()
          Dim Personen As New List(Of Persoon)
          Personen.Add(New Persoon() With {.Naam = "CaptainBri", .Leeftijd = 20})
          Personen.Add(New Persoon() With {.Naam = "Henkie", .Leeftijd = 30})
  
          Dim Gevonden As New List(Of Persoon)
          For Each p As Persoon In Personen
              If p.Naam.Contains("Zoekwoord") Then Gevonden.Add(p)
          Next
      End Sub
  
      Structure Persoon
          Dim Naam As String
          Dim Leeftijd As Integer
      End Structure

  
  De lijst 'Personen' moet dan wel globaal gedeclareerd worden. Natuurlijk moet je de functie wel aanpassen zodat het wat retourneert, maar ik neem aan dat je snapt hoe dat in z'n werk gaat.
  Ook voor het verwijderen van personen kan je de zoek functie gebruiken, beetje aanpassen en het werkt

Succes :thumb:

 

[xl3igplayer]

Hey CaptainBri !

Bedankt voor de code !
Het zoek gedeelte Snap ik wel maar ik snap niet waar je nou de contact personen hebt En hoe je nou toe kan voegen :S Zou je nog een keer kunnen helpen ? of een complete code

 

[CaptainBri]

Natuurlijk, een voorbeeldje in elkaar gezet:

Download het project hier: http://www.mediafire.com/?dr4mo20i1lpdjcy

Succes ermee, als je nog vragen hebt vraag ze gerust

P.S. Rechtermuisknop op de listview voor het menu!

 

[xl3igplayer]

CaptainBri Je bent weer super !
Heel erg bedankt ! Maar kan er misschien nog een optie bij dat je het online kan opslaan ? En dus ook weer kan openen ?
Als dat zou kunnen Ah Heel erg bedankt dan !

Edit:
Ik heb zelf nog even gezocht en ik ben er bijna met het online opslaan!
Ik heb al een code gevonden hoe je de listview naar een txt kan doen maar nu wil ik graag die .txt online op kan slaan ( via woelmuis ofzo ) Maar ik ben die code kwijt :S en ik heb geen iedee waar ik op moet googlen :S

IK had een code waarmee je de text van het bestand kon veranderen En het was iets van een download string ofzo :S help me :O

 

[CaptainBri]

Hier 2 functies:

PostData() is om data naar een PHP pagina met de POST methode te versturen, het word aangeraden om GET alleen te gebruiken bij kleine hoeveelheden data dus daarom gebruiken we POST.

    Sub PostData(ByVal URL As String, ByVal ParamName As String, ByVal str As String)
        Dim request As Net.WebRequest = Net.WebRequest.Create(URL)
        request.Method = "POST"
        Dim byteArray As Byte() = Text.Encoding.UTF8.GetBytes(ParamName & str)
        request.ContentType = "application/x-www-form-urlencoded"
        request.ContentLength = byteArray.Length
        request.GetRequestStream().Write(byteArray, 0, byteArray.Length)
    End Sub

Bijbehorende PHP code:

<?php
if (isset($_POST['data'])) file_put_contents("data.txt", $_POST['data']);
?>

GetData() haalt de gegevens uit een tekst-bestandje op van de server.

    Function GetData(ByVal URL As String, ByVal ParamName As String) As String
        Return New Net.WebClient().DownloadString(URL & "?" & ParamName & "=ja")
    End Function

Bijbehorende PHP code:

<?php
if (isset($_GET['ophalen'])) echo file_get_contents("data.txt");
?>

Om ze aan te roepen een voorbeeld:

        PostData("http://127.0.0.1/post.php", "data=", "Dit is een test string om de post functie te testen ^^")
        Dim OpgehaaldeData As String = GetData("http://127.0.0.1/post.php", "ophalen")

Ik hoop dat je daarmee verder kan

 

[xl3igplayer]

Helemaal toppie !

Ik ga het meteen proberen. maar ik zoek ( ook nog voor een ander project ) een code waarmee je bijv text uit een url kan halen ( bijv. woelmuis.nl/xl3igplayer/text.txt ) En dan die text als string kan gebruiken. maar ik had ook zo'n code om Dat text bestandje te bewerken Misschien dat je die kan maken of nog ergens vinden :S

edit;

er zitten veel fouten in :S misschien omdat ik visual basic 2010 gebruik ?? Kan je anders een keer via msn helpen ( of teamvieweren :$ )

 

[CaptainBri]

Als je even een mailtje stuurt met je MSN kan ik je verder helpen met die fouten

P.S. Hier werkte het prima, 100% (Gebruik VS 2008)