MicrostockGroup

      if (trim($_FILES['myfiles']['name'][$i])!="")
  {
        $newfile = 'your-image.jpg';
   $size = getimagesize ($newfile, $IIM);       
   if(is_array($IIM))
    {   
    $iptc = iptcparse($IIM["APP13"]);
if (is_array($iptc))
{
    foreach (array_keys($iptc) as $s9)
{             
     $c9 = count ($iptc[$s9]);
     for ($i9=0; $i9 <$c9; $i9++)
           {
   $output = $s9.' = '.$iptc[$s9][$i9];
   $begin = substr($output,0,5);
   $full = strlen($output);
   $len = ($full - 8);
   $word = substr($output,-$len);
        if ($begin == '2#005')
        {
        $title = "$word";
        }
if ($begin == '2#120')
{
$all_about = "$word";
}
if ($begin == '2#025')
{
if (($i9 < 1) or ($i9 > ($c9 - 1)))
{
$comma = '';
}
else
{
$comma = ', ';
}
$the_tags = "$the_tags" . "$comma" . "$word";
}
    }
       }

Imports System.Xml
Imports System.Xml.Serialization
Imports System.Windows.Media
Imports System.Windows.Media.Imaging

 Public Function saveDataFromFile(ByVal FileName As String, ByVal toFileName As String) As Boolean
        ' Declare Variables
        Dim imageStream As Stream = New FileStream(FileName, FileMode.Open, FileAccess.Read, FileShare.Read)
        Dim decoder As BitmapDecoder = BitmapDecoder.Create(imageStream, BitmapCreateOptions.PreservePixelFormat, BitmapCacheOption.OnLoad)
        Dim Mdata As BitmapMetadata = DirectCast(decoder.Frames(0).Metadata, BitmapMetadata)
        Dim myXmlSettings As New XmlWriterSettings
        myXmlSettings.Indent = True
        myXmlSettings.NewLineOnAttributes = True
        If Mdata.Count = 0 Then
            MessageBox.Show("Error Saving Image " + System.IO.Path.GetFileNameWithoutExtension(FileName))
            Return False
        End If
        ' this will say if we are good to go
        Dim goodToGo As Boolean = True
        ' Variables to use for calculating
        Dim AddStr As String = "", TempStr As String = ""
        ' Create a new file
         Using ImageWriter As XmlWriter = XmlWriter.Create(toFileName, myXmlSettings)
            ImageWriter.WriteComment("www.photographerstripod.com ")
            ImageWriter.WriteStartElement("Image")
            ' File Information
            ImageWriter.WriteElementString("Path", FileName)
            ImageWriter.WriteElementString("ThumbPath", imageThumbPath)
            ImageWriter.WriteElementString("Name", System.IO.Path.GetFileNameWithoutExtension(FileName))
            'Caption
            TempStr = Trim(Replace(Mdata.Comment, Chr(0), ""))
            AddStr = Trim(Replace(TempStr, vbLf, ""))
            If AddStr.Length > 128 Then
                goodToGo = False
            End If
            ImageWriter.WriteElementString("Comment", AddStr)
            'Description
            TempStr = Trim(Replace(Mdata.Subject, Chr(0), ""))
            AddStr = Trim(Replace(TempStr, vbLf, ""))
            If AddStr.Length > 2000 Then
                goodToGo = False
            End If
            ImageWriter.WriteElementString("Subject", AddStr)
            ImageWriter.WriteElementString("Date", Trim(Replace(Mdata.DateTaken, Chr(0), "")))
            'Location
            TempStr = Trim(Replace(Mdata.Location, Chr(0), ""))
            AddStr = Trim(Replace(TempStr, vbLf, ""))
            If AddStr.Length > 100 Then
                goodToGo = False
            End If
            If AddStr <> "/" Then
                ImageWriter.WriteElementString("Location", AddStr)
            Else
                ImageWriter.WriteElementString("Location", "")
            End If
            ImageWriter.WriteElementString("UniqueID", System.IO.Path.GetFileNameWithoutExtension(FileName))
            ' Keyword Section
            Dim KeywordList As ObjectModel.ReadOnlyCollection(Of String) = Mdata.Keywords
            ImageWriter.WriteStartElement("Keywords")
            If Not KeywordList Is Nothing Then
                ' All Keywords from the Image
                ImageWriter.WriteStartElement("AllKeywords")
                For i = 0 To KeywordList.Count - 1
                    TempStr = Trim(Replace(KeywordList(i), Chr(0), ""))
                    AddStr = Trim(Replace(TempStr, vbLf, ""))
                    'None Quotes("") Brackets []
                    If InStr(AddStr, " ") <> 0 Then
                        If cmbSyntax.SelectedIndex = 1 Then
                            AddStr = """" + AddStr + """"
                        End If
                        If cmbSyntax.SelectedIndex = 2 Then
                            AddStr = "[" + AddStr + "]"
                        End If
                    End If
                    ImageWriter.WriteElementString("Word", AddStr)
                Next
                ImageWriter.WriteEndElement()
            Else
                ImageWriter.WriteStartElement("AllKeywords")
                ImageWriter.WriteElementString("Word", "")
                ImageWriter.WriteEndElement()
            End If
            ImageWriter.WriteEndElement()
            ImageWriter.WriteElementString("Validated", goodToGo.ToString)
            ImageWriter.WriteEndElement()
            ImageWriter.Close()
        End Using
        Return True
    End Function