高度なPDFアプリケーションの開発を支援する定番プログラムライブラリー Supported by インフォテック株式会社

PDFlib TET サンプル集(クックブック)

本サンプルプログラムは、PDF テキスト抽出ライブラリーの実装である TET の基本的な機能を実際のプログラムで紹介したものです。

本サイトでダウンロードした TET は、一部機能の制限を除き、評価版として無償でお使いいただけます。


PDFlib TET で、文書に含まれるユニークな単語を多い順に一覧表示する単語リストを作成するサンプルプログラムです。

<?xml version="1.0" encoding="UTF-8"?>
  (C) PDFlib GmbH 2008 www.pdflib.com

  Purpose: Create a concordance, i.e. a list of unique words in a
  document sorted by descending frequency

  Expected input: TETML in "word" or "wordplus" mode.

  Stylesheet parameters: none

  Version: $Id: concordance.xsl,v 1.2 2008/11/19 10:37:32 stm Exp $

<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
  <xsl:output method="text"/>

  <!-- Characters that may appear at the beginning of a word -->
  <xsl:variable name="allowed-chars"
    select="'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvw'" />

  <!--  Index required by the "Muenchian" method. -->
  <xsl:key name="text-elements" match="tet:Text" use="."/>

  <xsl:template match="/">
    <!-- Make sure that word information is present in the input TETML. -->
    <xsl:if test="tet:TET/tet:Document/tet:Pages/tet:Page/tet:Content[not(@granularity = 'word')]">
      <xsl:message terminate="yes">
        <xsl:text>Stylesheet concordance.xsl processing TETML for document '</xsl:text>
        <xsl:value-of select="tet:TET/tet:Document/@filename" />
        <xsl:text>': this stylesheet requires font info in TETML. </xsl:text>
        <xsl:text>Create the input in page mode "word" or "wordplus".</xsl:text>

    <xsl:text>List of words in the document along with the number of occurrences:&#xa;&#xa;</xsl:text>

      With the "Muenchian" method, generate a list of unique words in the
      document. Filter out all words that do not start with one of
      the characters contained in the $allowed-chars variable.
    <xsl:variable name="unique-words"
      select="tet:TET/tet:Document/tet:Pages//tet:Text[generate-id() = generate-id(key('text-elements', .)[1])
      and string-length(translate(substring(., 1, 1), $allowed-chars, '')) = 0]" />

    <xsl:for-each select="$unique-words">
      <!-- Sort numerically descending according to the frequency. -->
      <xsl:sort select="count(key('text-elements', .))" 
        data-type="number" order="descending"/>

      <!-- Output the keyword. -->
      <xsl:value-of select="." />
      <xsl:text> </xsl:text>

      <!-- Output the number of times the keyword appears. -->
      <xsl:value-of select="count(key('text-elements', .))" />

      <!-- Terminate with a newline character. -->

    <xsl:text>&#xa;Total unique words: </xsl:text>
    <xsl:value-of select="count($unique-words)" />
(May 6, 2010 - Feb 21, 2014)